projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10362: Automated commit for Debian build of kmrcl upstream-version-1.80
[kmrcl.git]
/
impl.lisp
diff --git
a/impl.lisp
b/impl.lisp
index a814cc4d1b0a08d42eb75d94abde0aef1f0b4f7a..93fe3f791f455294432ecaa60a851eb0060e6cf4 100644
(file)
--- a/
impl.lisp
+++ b/
impl.lisp
@@
-37,7
+37,7
@@
path))))
path))))
-(defun probe-directory (filename &key (error-if-
not-exists
nil))
+(defun probe-directory (filename &key (error-if-
does-not-exist
nil))
(let* ((path (canonicalize-directory-name filename))
(probe
#+allegro (excl:probe-directory path)
(let* ((path (canonicalize-directory-name filename))
(probe
#+allegro (excl:probe-directory path)
@@
-58,7
+58,7
@@
(probe-file path)))
(if probe
probe
(probe-file path)))
(if probe
probe
- (when error-if-
not-exists
+ (when error-if-
does-not-exist
(error "Directory ~A does not exist." filename)))))
(defun cwd (&optional dir)
(error "Directory ~A does not exist." filename)))))
(defun cwd (&optional dir)