X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=impl.lisp;h=7efec3d79b1cfd33eef5163ba24bdf38e4f12ca3;hp=a814cc4d1b0a08d42eb75d94abde0aef1f0b4f7a;hb=10959ae8c2c6839e1a2134c17f267429c938f44a;hpb=f03310d76a2458e5efb45b89f8e6b087db7f4ed1

diff --git a/impl.lisp b/impl.lisp
index a814cc4..7efec3d 100644
--- 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)