Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -240,7 +240,7 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s ...@@ -240,7 +240,7 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
#+mcl '(:directories t)))) #+mcl '(:directories t))))
#+(or abcl xcl) (system:list-directory directory) #+(or abcl xcl) (system:list-directory directory)
#+cormanlisp (cl::directory-subdirs 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) #+(or abcl allegro cmucl genera lispworks sbcl scl xcl)
(dirs (loop :for x :in dirs (dirs (loop :for x :in dirs
:for d = #+(or abcl xcl) (extensions:probe-directory x) :for d = #+(or abcl xcl) (extensions:probe-directory x)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment