/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wlott, Wed Dec 18 11:40:52 1991 UTC revision 1.3 by wlott, Wed Dec 18 22:35:03 1991 UTC
# Line 667  Line 667 
667           (and (consp that)           (and (consp that)
668                (components-match (car this) (car that))                (components-match (car this) (car that))
669                (components-match (cdr this) (cdr that))))                (components-match (cdr this) (cdr that))))
670          ((member :back :up :unspecific)          ((member :back :up :unspecific nil)
671           (and (pattern-p that)           (and (pattern-p that)
672                (equal (pattern-pieces that) '(:multi-char-wild)))))))                (equal (pattern-pieces that) '(:multi-char-wild)))))))
673    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5