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

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 9df17c6..7089003 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -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