From 7e3b6a9d7a37fdee127d40866739019da9f951e0 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Mon, 10 Feb 2014 10:24:06 -0600 Subject: [PATCH] Blind alley attempt to use Allegro function for DIRECTORY-PATHNAME-P. --- uiop/pathname.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/uiop/pathname.lisp b/uiop/pathname.lisp index 1c186ac1..74bf464d 100644 --- a/uiop/pathname.lisp +++ b/uiop/pathname.lisp @@ -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))) -- GitLab