X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=475377d5cbc6359bf1508c9b55630c5c8878b21f;hb=085501b44cc1cbdd9e260139d30b383372ddd1b8;hp=4f0b476810726027c0596926f5c956116b04dda4;hpb=a682f4c392bc874a6a898632889319ebdd8821fc;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 4f0b476..475377d 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -193,7 +193,9 @@
       (tagbody
        retry-compile-file
          (multiple-value-bind (output-truename warnings-p failure-p)
-             (compile-file fullname)
+             (if *compile-files-p*
+                 (compile-file fullname)
+                 (compile-file-pathname fullname))
            (declare (ignore warnings-p))
            (sb-int:/show "done compiling" fullname)
            (cond ((not output-truename)