X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fslam.lisp;h=e9dc76fb7edaffca0c9f8f46887538b491e34123;hb=2a1151093b4562726e6be51aeec690bb6b1f7d79;hp=92534c64ca576f6e55849c91c12fb687d3db524c;hpb=2db3b6b4cb740d5b6512459c223859f747807b09;p=sbcl.git

diff --git a/src/cold/slam.lisp b/src/cold/slam.lisp
index 92534c6..e9dc76f 100644
--- a/src/cold/slam.lisp
+++ b/src/cold/slam.lisp
@@ -29,16 +29,16 @@
        ;; 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*)))
+          (objname (concatenate 'string
+                                *target-obj-prefix*
+                                stem
+                                *target-obj-suffix*)))
       (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
+                             :assem-p (find :assem flags)
+                             :ignore-failure-p (find :ignore-failure-p flags))))))