diff options
Diffstat (limited to 'src/interp/fname.lisp')
| -rw-r--r-- | src/interp/fname.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/fname.lisp b/src/interp/fname.lisp index a3c622d5..32dd202d 100644 --- a/src/interp/fname.lisp +++ b/src/interp/fname.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2008, Gabriel Dos Reis. +;; Copyright (C) 2007-2010, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -84,8 +84,6 @@ (if (probe-file (namestring f)) 't nil)) (defun |fnameReadable?| (f) -#+:CCL (file-readablep f) -#-:CCL (let ((s (open f :direction :input :if-does-not-exist nil))) (cond (s (close s) 't) ('t nil)) ) ) |