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

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,
Note that this does _not_ check to see that PATHNAME points to an
actually-existing directory."
(when pathname
#+allegro
(handler-case
(excl:file-directory-p pathname)
;; Allegro can be fussy about translating oddball pathnames
;; to namestrings
(file-error () nil))
#-allegro
;; I tried using Allegro's excl:file-directory-p, but this cannot be done,
;; because it rejects apparently legal pathnames as
;; ill-formed. [2014/02/10:rpg]
(let ((pathname (pathname pathname)))
(flet ((check-one (x)
(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