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