1.0.28.19: faster ARRAY-DIMENSION for non-vectors

[sbcl.git] / src / cold / slam.lisp

diff --git a/src/cold/slam.lisp b/src/cold/slam.lisp
index 7101401..aa3b1f7 100644 (file)
--- a/src/cold/slam.lisp
+++ b/src/cold/slam.lisp
@@ -29,14 +29,11 @@
        ;; recompile unnecessarily than sometimes bogusly to assume
        ;; up-to-date-ness.)
        (> (file-write-date output)
-         (file-write-date input))))
+          (file-write-date input))))
 
 (do-stems-and-flags (stem flags)
   (unless (position :not-target flags)
-    (let ((srcname (concatenate 'string stem ".lisp"))
-         (objname (concatenate 'string
-                               *target-obj-prefix*
-                               stem
-                               *target-obj-suffix*)))
+    (let ((srcname (stem-source-path stem))
+          (objname (stem-object-path stem flags :target-compile)))
       (unless (output-up-to-date-wrt-input-p objname srcname)
-       (target-compile-stem stem)))))
+        (target-compile-stem stem flags)))))