r10985: actually apply diff

[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))))
   
 
-(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)
@@ -58,7 +58,7 @@
          (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)