X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=28cfa41a1e8bd7a3504d754899a2cef8c63b2b63;hb=bb93c9001110f38e28af43012e2c4bdda871b630;hp=79a5af1f90fab7e7cc9200ba8cbe160809f3b51d;hpb=62be7b271a57e0a125ccb0e68a6dd6cb54c75739;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 79a5af1..28cfa41 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -68,12 +68,12 @@
 (def!method print-object ((pathname logical-pathname) stream)
   (let ((namestring (handler-case (namestring pathname)
 		      (error nil))))
-    (if namestring
+    (if (and namestring (or *read-eval* (not *print-readably*)))
 	(format stream "#.(CL:LOGICAL-PATHNAME ~S)" namestring)
 	(print-unreadable-object (pathname stream :type t)
 	  (format
 	   stream
-	   "~_:HOST ~S ~_:DIRECTORY ~S ~_:FILE ~S ~_:NAME ~S ~_:VERSION ~S"
+	   "~_:HOST ~S ~_:DIRECTORY ~S ~_:NAME ~S ~_:TYPE ~S ~_:VERSION ~S"
 	   (%pathname-host pathname)
 	   (%pathname-directory pathname)
 	   (%pathname-name pathname)