DIRECTORY errors with wildcard directory

[Mark Evenson]

In <​https://mailman.common-lisp.net/pipermail/armedbear-devel/2017-July/003870.html>, Mark Cox notes that

(directory (merge-pathnames (make-pathname :directory
                                           '(:relative :wild))
                            (user-homedir-pathname)))

errors with

The value NIL is not of type (OR PATHNAME
                                 STRING
                                 FILE-STREAM
                                 SYSTEM:JAR-STREAM
                                 SYSTEM:URL-STREAM).
   [Condition of type TYPE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] Abort thread.

Backtrace:
  0: (INVOKE-DEBUGGER #<TYPE-ERROR {7EA9D89E}>)
  1: org.armedbear.lisp.Lisp.error(Lisp.java:382)
  2: org.armedbear.lisp.Lisp.type_error(Lisp.java:435)
  3: (PATHNAME NIL)
  4: (PATHNAME-MATCH-P "adbkey" NIL)
  5: (DIRECTORY #P"/Users/evenson/*/")

[Mark Evenson]

Workaround

(loop :for p :in (directory (merge-pathnames "*" (user-homedir-pathname)))
   :when (sys::pathname-directory-p p)
   :collect p)

[Mark Evenson]

Ticket retargeted after milestone closed

[Mark Evenson]

Ticket retargeted after milestone closed

[Mark Evenson]

Ticket retargeted after milestone closed

[Mark Evenson]

Ticket retargeted after milestone closed

[Mark Evenson]

Milestone renamed