/[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.64.4.1 by rtoy, Tue May 18 14:35:57 2004 UTC revision 1.64.4.2 by rtoy, Wed Jun 2 15:17:19 2004 UTC
# Line 312  Line 312 
312                            (:character-set                            (:character-set
313                             (and (< start len)                             (and (< start len)
314                                  (let ((char (schar string start)))                                  (let ((char (schar string start)))
315                                    (if (find char (cdr piece) :test #'char=)                                    (if (find char (second piece) :test #'char=)
316                                        (matches (cdr pieces) (1+ start) subs t                                        (matches (cdr pieces) (1+ start) subs t
317                                                 (cons char chars))))))))                                                 (cons char chars))))))))
318                         ((member :single-char-wild)                         ((member :single-char-wild)

Legend:
Removed from v.1.64.4.1  
changed lines
  Added in v.1.64.4.2

  ViewVC Help
Powered by ViewVC 1.1.5