[armedbear-cvs] r14142 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep  1 13:59:40 2012
New Revision: 14142

Log:
Fix the incremental build.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Fri Aug 31 16:29:06 2012	(r14141)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Sat Sep  1 13:59:40 2012	(r14142)
@@ -257,13 +257,13 @@
         (*prevent-fasl-circle-detection* t))
     (unless output-path
       (setf output-path *default-pathname-defaults*))
-    (flet ((do-compile (file)
+    (flet ((do-compile (file &key (extract t))
              (let ((out (make-pathname :type *compile-file-type*
                                        :defaults (merge-pathnames
                                                   file output-path))))
                (compile-file-if-needed file
                                        :output-file out
-                                       :extract-toplevel-funcs-and-macros t))))
+                                       :extract-toplevel-funcs-and-macros extract))))
       (load (do-compile "defstruct.lisp"))
       (load (do-compile "coerce.lisp"))
       (load (do-compile "open.lisp"))
@@ -452,8 +452,10 @@
       (generate-autoloads output-path)
       ;; Compile the file in the build directory instead of the one in the
       ;; sources directory - the latter being for bootstrapping only.
-      (do-compile (merge-pathnames #p"autoloads-gen.lisp" output-path))
-      (do-compile "autoloads.lisp"))
+      (do-compile (merge-pathnames #p"autoloads-gen.lisp" output-path)
+        :extract nil)
+      (do-compile "autoloads.lisp"
+        :extract nil))
     t))
 
 (defun compile-system (&key quit (zip t) (cls-ext *compile-file-class-extension*) (abcl-ext *compile-file-type*) output-path)