(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))
(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)
+ (push (target-compile-stem stem 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)))