#451: DIRECTORY errors with wildcard directory ------------------------------+---------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: minor | Milestone: 1.6.0 Component: interpreter | Version: Resolution: | Keywords: pathname Parent Tickets: | ------------------------------+----------------------
Comment (by mevenson):
Workaround
{{{ (loop :for p :in (directory (merge-pathnames "*" (user-homedir-pathname))) :when (sys::pathname-directory-p p) :collect p) }}}
-- Ticket URL: http://abcl.org/trac/ticket/451#comment:1 armedbear http://abcl.org armedbear