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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jul 31 11:17:01 2012
New Revision: 14034

Log:
Follow up to r14027: generate the output files while building our system.

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	Tue Jul 31 11:10:03 2012	(r14033)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Tue Jul 31 11:17:01 2012	(r14034)
@@ -89,7 +89,9 @@
              (let ((out (make-pathname :type *compile-file-type*
                                        :defaults (merge-pathnames
                                                   file output-path))))
-               (compile-file-if-needed file :output-file out))))
+               (compile-file-if-needed file
+                                       :output-file out
+                                       :extract-toplevel-funcs-and-macros t))))
       (load (do-compile "defstruct.lisp"))
       (load (do-compile "coerce.lisp"))
       (load (do-compile "open.lisp"))