r10071: fix keyword name

diff --git a/impl.lisp b/impl.lisp
index 7efec3d79b1cfd33eef5163ba24bdf38e4f12ca3..93fe3f791f455294432ecaa60a851eb0060e6cf4 100644 (file)
--- a/impl.lisp
+++ b/impl.lisp
@@ -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)