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

parent 431d2dd1
......@@ -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"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment