projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.41:
[sbcl.git]
/
src
/
cold
/
compile-cold-sbcl.lisp
diff --git
a/src/cold/compile-cold-sbcl.lisp
b/src/cold/compile-cold-sbcl.lisp
index
7bd002c
..
b0d2a5d
100644
(file)
--- a/
src/cold/compile-cold-sbcl.lisp
+++ b/
src/cold/compile-cold-sbcl.lisp
@@
-14,8
+14,6
@@
(in-package "SB-COLD")
(in-package "SB-COLD")
-;;;; $Header$
-
(defvar *target-object-file-names*)
;;; KLUDGE..
(defvar *target-object-file-names*)
;;; KLUDGE..
@@
-36,10
+34,8
@@
(declaim (ftype (function (&rest t) nil) sb!kernel::do-arg-count-error))
(let ((reversed-target-object-file-names nil))
(declaim (ftype (function (&rest t) nil) sb!kernel::do-arg-count-error))
(let ((reversed-target-object-file-names nil))
- (for-stems-and-flags (stem flags)
- (unless (find :not-target flags)
- ;; FIXME: Remove these GC calls after fixing the problem of ridiculous
- ;; bootstrap memory bloat.
+ (do-stems-and-flags (stem flags)
+ (unless (position :not-target flags)
(push (target-compile-stem stem
:assem-p (find :assem flags)
:ignore-failure-p (find :ignore-failure-p
(push (target-compile-stem stem
:assem-p (find :assem flags)
:ignore-failure-p (find :ignore-failure-p