projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.13.16: preliminary Windows installer builder
[sbcl.git]
/
src
/
cold
/
slam.lisp
diff --git
a/src/cold/slam.lisp
b/src/cold/slam.lisp
index
7101401
..
e9dc76f
100644
(file)
--- a/
src/cold/slam.lisp
+++ b/
src/cold/slam.lisp
@@
-29,14
+29,16
@@
;; recompile unnecessarily than sometimes bogusly to assume
;; up-to-date-ness.)
(> (file-write-date output)
;; 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"))
(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)
(unless (output-up-to-date-wrt-input-p objname srcname)
- (target-compile-stem stem)))))
+ (target-compile-stem stem
+ :assem-p (find :assem flags)
+ :ignore-failure-p (find :ignore-failure-p flags))))))