X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fslam.lisp;h=57e4a4f3668a2810cfaaa797c61a530c84f85a16;hb=577487adfc43408ef5fba0ce118b961407e33494;hp=e9dc76fb7edaffca0c9f8f46887538b491e34123;hpb=80356ce0ff12379e93a9df74dd65433c415f7aae;p=sbcl.git

diff --git a/src/cold/slam.lisp b/src/cold/slam.lisp
index e9dc76f..57e4a4f 100644
--- a/src/cold/slam.lisp
+++ b/src/cold/slam.lisp
@@ -33,12 +33,7 @@
 
 (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 :target-compile)))
       (unless (output-up-to-date-wrt-input-p objname srcname)
-        (target-compile-stem stem
-                             :assem-p (find :assem flags)
-                             :ignore-failure-p (find :ignore-failure-p flags))))))
+        (target-compile-stem stem flags)))))