diff --git a/code/pathname.lisp b/code/pathname.lisp index ed8b000ff3d16a34eb0f153901c5a07c79db1c64..2301603aef50595cc1afcd09df5c6f45ad606764 100644 --- a/code/pathname.lisp +++ b/code/pathname.lisp @@ -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))))