(in-package "SB-COLD")
-;;;; $Header$
-
(defvar *target-object-file-names*)
-;;; KLUDGE..
-;;;
-;;; CMU CL (as of 2.4.6 for Debian, anyway) issues warnings (and not just
-;;; STYLE-WARNINGs, either, alas) when it tries to interpret code containing
-;;; references to undefined functions. The most common problem is that
-;;; macroexpanded code refers to this function, which isn't defined until late.
-;;;
-;;; This
-;;; #+cmu (defun sb!kernel::do-arg-count-error (&rest rest)
-;;; (error "stub version of do-arg-count-error, rest=~S" rest))
-;;; doesn't work, with or without this
-;;; (compile 'sb!kernel::do-arg-count-error))
-;;; so perhaps I should try
-;;; (declaim (ftype ..) ..)
-;;; instead?
-(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
- flags))
- reversed-target-object-file-names)
+ :trace-file (find :trace-file flags)
+ :assem-p (find :assem flags)
+ :ignore-failure-p (find :ignore-failure-p
+ flags))
+ reversed-target-object-file-names)
#!+sb-show (warn-when-cl-snapshot-diff *cl-snapshot*)))
(setf *target-object-file-names*
- (nreverse reversed-target-object-file-names)))
+ (nreverse reversed-target-object-file-names)))