Changeset 7272


Ignore:
Timestamp:
Sep 23, 2007, 4:44:34 AM (12 years ago)
Author:
gb
Message:

Treat NIL and :UNSPECIFIC name/type components in the pattern consistently
in %FILE*=.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/pathnames.lisp

    r5677 r7272  
    457457         (type (and pos (%substr pstr (%i+ pos 1) end)))
    458458         (name (unless (eq (or pos end) 0) (if pos (%substr pstr 0 pos) pstr))))
    459     (and (cond ((eq name-pat :unspecific) (null name))
    460                ((null name-pat) T)
     459    (and (cond ((or (eq name-pat :unspecific) (null name-pat)) (null name))
    461460               (t (%path-pstr*= name-pat (or name ""))))
    462          (cond ((eq type-pat :unspecific) (null type))
    463                ((null type-pat) T)
     461         (cond ((or (null type-pat) (eq type-pat :unspecific)) (null type))
    464462               (t (%path-pstr*= type-pat (or type "")))))))
    465463
Note: See TracChangeset for help on using the changeset viewer.