[armedbear] #451: DIRECTORY errors with wildcard directory
#451: DIRECTORY errors with wildcard directory -------------------------+------------------------ Reporter: mevenson | Owner: Type: defect | Status: new Priority: minor | Milestone: 1.6.0 Component: interpreter | Version: Keywords: pathname | Parent Tickets: -------------------------+------------------------ 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/*/") }}} -- Ticket URL: <http://abcl.org/trac/ticket/451> armedbear <http://abcl.org> 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
participants (1)
-
armedbear