/[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.32 by dtc, Thu Oct 2 18:31:50 1997 UTC revision 1.33 by dtc, Mon Feb 9 15:19:39 1998 UTC
# Line 1164  a host-structure or string." Line 1164  a host-structure or string."
1164                   (when (listp match)                   (when (listp match)
1165                     (error ":WILD-INFERIORS not paired in from and to ~                     (error ":WILD-INFERIORS not paired in from and to ~
1166                             patterns:~%  ~S ~S" from to))                             patterns:~%  ~S ~S" from to))
1167                   (maybe-diddle-case match diddle-case)))                   (res (maybe-diddle-case match diddle-case))))
1168                ((member :wild-inferiors)                ((member :wild-inferiors)
1169                 (assert subs-left)                 (assert subs-left)
1170                 (let ((match (pop subs-left)))                 (let ((match (pop subs-left)))
# Line 1178  a host-structure or string." Line 1178  a host-structure or string."
1178                     (new new-subs-left)                     (new new-subs-left)
1179                     (substitute-into to-part subs-left diddle-case)                     (substitute-into to-part subs-left diddle-case)
1180                   (setf subs-left new-subs-left)                   (setf subs-left new-subs-left)
1181                   new))                   (res new)))
1182                (t (res to-part)))))                (t (res to-part)))))
1183          (res))))          (res))))
1184    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

  ViewVC Help
Powered by ViewVC 1.1.5