X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=7089003a9a103a382eaef7d14782c3bf2500fde5;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=507395432d07fbb73c669460af8e1017c7fdcfe0;hpb=9728093863d1ed201719d1f7ef61b9df29bb1d44;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 5073954..7089003 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -282,7 +282,7 @@
 	    (,pathname (etypecase ,pd0
 			 (pathname ,pd0)
 			 (string (parse-namestring ,pd0))
-			 (stream (file-name ,pd0)))))
+			 (file-stream (file-name ,pd0)))))
        ,@body)))
 
 ;;; Convert the var, a host or string name for a host, into a
@@ -1494,8 +1494,7 @@ a host-structure or string."
 	   (return (translate-logical-pathname
 		    (translate-pathname pathname from to)))))))
     (pathname pathname)
-    (stream (translate-logical-pathname (pathname pathname)))
-    (t (translate-logical-pathname (logical-pathname pathname)))))
+    (t (translate-logical-pathname (pathname pathname)))))
 
 (defun translate-logical-pathname (pathname &key)
   #!+sb-doc