X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=impl.lisp;h=93fe3f791f455294432ecaa60a851eb0060e6cf4;hp=48c740ebe0804de9ca58ad6d2de7753d4bd4aa00;hb=1ae2138bd3b547e03b1f49df90669687fb79bd3a;hpb=5470e786c59285e2f09497598505654672be847d

diff --git a/impl.lisp b/impl.lisp
index 48c740e..93fe3f7 100644
--- a/impl.lisp
+++ b/impl.lisp
@@ -37,7 +37,7 @@
 	  path))))
   
 
-(defun probe-directory (filename &key (error-if-does-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)