Rename compute-code-from-fn to compute-code-from-lip, except for sparc.

[sbcl.git] / src / code / target-pathname.lisp

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index b11d04c..8c0f0fa 100644 (file)
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -44,7 +44,11 @@
   (let ((namestring (handler-case (namestring pathname)
                       (error nil))))
     (if namestring
-        (format stream "#P~S" (coerce namestring '(simple-array character (*))))
+        (format stream
+                (if (or *print-readably* *print-escape*)
+                    "#P~S"
+                    "~A")
+                (coerce namestring '(simple-array character (*))))
         (print-unreadable-object (pathname stream :type t)
           (format stream
                   "~@<(with no namestring) ~_:HOST ~S ~_:DEVICE ~S ~_:DIRECTORY ~S ~