Commit c2baa6fa authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Kill blind alley in PATHNAME-DIRECTORY-P.

parent 7e3b6a9d
...@@ -302,13 +302,9 @@ ways that the filename components can be missing are for it to be NIL, ...@@ -302,13 +302,9 @@ ways that the filename components can be missing are for it to be NIL,
Note that this does _not_ check to see that PATHNAME points to an Note that this does _not_ check to see that PATHNAME points to an
actually-existing directory." actually-existing directory."
(when pathname (when pathname
#+allegro ;; I tried using Allegro's excl:file-directory-p, but this cannot be done,
(handler-case ;; because it rejects apparently legal pathnames as
(excl:file-directory-p pathname) ;; ill-formed. [2014/02/10:rpg]
;; Allegro can be fussy about translating oddball pathnames
;; to namestrings
(file-error () nil))
#-allegro
(let ((pathname (pathname pathname))) (let ((pathname (pathname pathname)))
(flet ((check-one (x) (flet ((check-one (x)
(member x '(nil :unspecific "") :test 'equal))) (member x '(nil :unspecific "") :test 'equal)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment