[armedbear] #451: DIRECTORY errors with wildcard directory

[armedbear]

#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