"Which format to use on output.")
(defun directory-exists-p (name)
-
+
;; Make a pathname for NAME which has the right form for a directory.
(let ((dirpath
(let ((path (pathname name)))
(if (null (pathname-name path))
path
- (make-pathname :directory
+ (make-pathname :directory
(append (or (pathname-directory path)
(list :relative))
(list (pathname-name path)))