Commit 1a85db86 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

UIOP: Fix DIRECTORY* on Genera

Fix DIRECTORY* on Genera (contribution by Gary Palter, lp#1518044):
UIOP uses FS:DIRECTORY-LIST on Genera to enumerate the contents of the
source repositories. However, if the directory doesn't exist,
FS:DIRECTORY-LIST signals an error, whereas UIOP expects to get NIL.
parent 4673c683
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -240,7 +240,7 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
                                       #+mcl '(:directories t))))
             #+(or abcl xcl) (system:list-directory directory)
             #+cormanlisp (cl::directory-subdirs directory)
             #+genera (fs:directory-list directory))
             #+genera (handler-case (fs:directory-list directory) (fs:directory-not-found () nil)))
           #+(or abcl allegro cmucl genera lispworks sbcl scl xcl)
           (dirs (loop :for x :in dirs
                       :for d = #+(or abcl xcl) (extensions:probe-directory x)