1.0.28.15: Build desymlinkification

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

diff --git a/src/cold/slam.lisp b/src/cold/slam.lisp
index 57e4a4f..aa3b1f7 100644 (file)
--- a/src/cold/slam.lisp
+++ b/src/cold/slam.lisp
@@ -34,6 +34,6 @@
 (do-stems-and-flags (stem flags)
   (unless (position :not-target flags)
     (let ((srcname (stem-source-path stem))
-          (objname (stem-object-path stem :target-compile)))
+          (objname (stem-object-path stem flags :target-compile)))
       (unless (output-up-to-date-wrt-input-p objname srcname)
         (target-compile-stem stem flags)))))