From c2baa6fac5bd227dfc74c903a7ef61230b2bd49a Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Mon, 10 Feb 2014 10:45:45 -0600 Subject: [PATCH] Kill blind alley in PATHNAME-DIRECTORY-P. --- uiop/pathname.lisp | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/uiop/pathname.lisp b/uiop/pathname.lisp index 74bf464d..05b44c48 100644 --- a/uiop/pathname.lisp +++ b/uiop/pathname.lisp @@ -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))) -- GitLab