X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=d6b219437edcfd6607a8e181b0c8247629e0b43d;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=0ef34ff9408befb77c74b32f11678de8af454140;hpb=a18f0a95bc9a457e4d2d00c702b746f29c2662b1;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 0ef34ff..d6b2194 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -849,7 +849,7 @@ a host-structure or string."
 (defun substitute-into (pattern subs diddle-case)
   (declare (type pattern pattern)
 	   (type list subs)
-	   (values (or simple-base-string pattern)))
+	   (values (or simple-base-string pattern) list))
   (let ((in-wildcard nil)
 	(pieces nil)
 	(strings nil))
@@ -1198,27 +1198,20 @@ a host-structure or string."
   values)
 
 (defun %enumerate-search-list (pathname function)
-  (/show0 "entering %ENUMERATE-SEARCH-LIST")
   (let* ((pathname (if (typep pathname 'logical-pathname)
 		       (translate-logical-pathname pathname)
 		       pathname))
 	 (search-list (extract-search-list pathname nil)))
-    (/show0 "PATHNAME and SEARCH-LIST computed")
     (cond
      ((not search-list)
-      (/show0 "no search list")
       (funcall function pathname))
      ((not (search-list-defined search-list))
-      (/show0 "undefined search list")
       (error "undefined search list: ~A"
 	     (search-list-name search-list)))
      (t
-      (/show0 "general case")
       (let ((tail (cddr (pathname-directory pathname))))
-	(/show0 "TAIL computed")
 	(dolist (expansion
 		 (search-list-expansions search-list))
-	  (/show0 "tail recursing in %ENUMERATE-SEARCH-LIST")
 	  (%enumerate-search-list (make-pathname :defaults pathname
 						 :directory
 						 (cons :absolute