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

Kill blind alley in PATHNAME-DIRECTORY-P.

parent 7e3b6a9d
Loading
Loading
Loading
Loading
+3 −7
Original line number Diff line number Diff line
@@ -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)))