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)
(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)