Loading uiop/pathname.lisp +3 −7 Original line number Diff line number Diff line Loading @@ -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))) Loading Loading
uiop/pathname.lisp +3 −7 Original line number Diff line number Diff line Loading @@ -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))) Loading