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
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment