Opened 4 years ago

Closed 7 months ago

#451 closed defect (fixed)

DIRECTORY errors with wildcard directory

Reported by: Mark Evenson Owned by:
Priority: minor Milestone: 1.8.0
Component: interpreter Version:
Keywords: pathname Cc:
Parent Tickets:

Description

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/*/")

Change History (8)

comment:1 Changed 4 years ago by Mark Evenson

Workaround

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

comment:2 Changed 18 months ago by Mark Evenson

Milestone: 1.6.01.6.1

Ticket retargeted after milestone closed

comment:3 Changed 13 months ago by Mark Evenson

Milestone: 1.6.11.6.2

Ticket retargeted after milestone closed

comment:4 Changed 11 months ago by Mark Evenson

Milestone: 1.6.21.7.0

comment:5 Changed 11 months ago by Mark Evenson

Milestone: 1.7.01.7.1

Ticket retargeted after milestone closed

comment:6 Changed 10 months ago by Mark Evenson

Milestone: 1.7.11.7.2

Ticket retargeted after milestone closed

comment:7 Changed 8 months ago by Mark Evenson

Milestone: 1.7.21.8.0

Milestone renamed

comment:8 Changed 7 months ago by Mark Evenson

Resolution: fixed
Status: newclosed
Note: See TracTickets for help on using tickets.