Changeset 14142

Timestamp:

09/01/12 20:59:40 (8 years ago)

Author:

ehuelsmann

Message:

Fix the incremental build.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-system.lisp (modified) (3 diffs)

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

@@ -258 +258 @@
     (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
@@ -264 +264 @@
                (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"))
@@ -453 +453 @@
       ;; 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))