r10070: fix keyword name

diff --git a/impl.lisp b/impl.lisp
index 48c740ebe0804de9ca58ad6d2de7753d4bd4aa00..7efec3d79b1cfd33eef5163ba24bdf38e4f12ca3 100644 (file)
--- a/impl.lisp
+++ b/impl.lisp
@@ -37,7 +37,7 @@
          path))))
   
 
          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)
   (let* ((path (canonicalize-directory-name filename))
         (probe
          #+allegro (excl:probe-directory path)