Commit 7e3b6a9d authored by Robert P. Goldman's avatar Robert P. Goldman

Blind alley attempt to use Allegro function for DIRECTORY-PATHNAME-P.

parent b54f9033
......@@ -302,6 +302,13 @@ 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
(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