X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=546f45b037f36233cadaaf77452c26c1822149ca;hb=893dd75069ad851efd19e3d0fa5a4de9e84b4868;hp=1528544b0ce49e49141226c0acb46a937cae2e6e;hpb=5579e97941f14d5f13a7090054a2a4f419e04252;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 1528544..546f45b 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -163,9 +163,11 @@
   (let ((fullname (concatenate 'string stem ".lisp")))
     (sb-int:/show "about to compile" fullname)
     (flet ((report-recompile-restart (stream)
-             (format stream "Recompile file ~S" src))
+             (format stream "Recompile file ~S" fullname))
            (report-continue-restart (stream)
-             (format stream "Continue, using possibly bogus file ~S" obj)))
+             (format stream
+		     "Continue, using possibly bogus file ~S"
+		     (compile-file-pathname fullname))))
       (tagbody
        retry-compile-file
          (multiple-value-bind (output-truename warnings-p failure-p)
@@ -173,12 +175,12 @@
            (declare (ignore warnings-p))
 	   (sb-int:/show "done compiling" fullname)
            (cond ((not output-truename)
-                  (error "COMPILE-FILE of ~S failed." src))
+                  (error "COMPILE-FILE of ~S failed." fullname))
                  (failure-p
 		  (unwind-protect
 		       (restart-case
 			   (error "FAILURE-P was set when creating ~S."
-				  obj)
+				  output-truename)
 			 (recompile ()
 			   :report report-recompile-restart
 			   (go retry-compile-file))