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

Diff of /src/code/filesys.lisp

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

revision 1.80 by emarsden, Wed Jun 2 09:12:24 2004 UTC revision 1.81 by rtoy, Wed Jun 2 14:46:08 2004 UTC
# Line 379  Line 379 
379              (case (car piece)              (case (car piece)
380                (:character-set                (:character-set
381                 (strings "[")                 (strings "[")
382                 (strings (cdr piece))                 (strings (second piece))
383                 (strings "]"))                 (strings "]"))
384                (t                (t
385                 (error "Invalid pattern piece: ~S" piece))))))                 (error "Invalid pattern piece: ~S" piece))))))

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5