Skip to content
Snippets Groups Projects
Commit 964033d4 authored by dtc's avatar dtc
Browse files

Fix for the collection of :wild and pattern pathname components in

translate-directories; from Markus Krummenacker.
parent 02a8271b
No related branches found
No related tags found
No related merge requests found
......@@ -4,7 +4,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.32 1997/10/02 18:31:50 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.33 1998/02/09 15:19:39 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1164,7 +1164,7 @@ a host-structure or string."
(when (listp match)
(error ":WILD-INFERIORS not paired in from and to ~
patterns:~% ~S ~S" from to))
(maybe-diddle-case match diddle-case)))
(res (maybe-diddle-case match diddle-case))))
((member :wild-inferiors)
(assert subs-left)
(let ((match (pop subs-left)))
......@@ -1178,7 +1178,7 @@ a host-structure or string."
(new new-subs-left)
(substitute-into to-part subs-left diddle-case)
(setf subs-left new-subs-left)
new))
(res new)))
(t (res to-part)))))
(res))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment