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