Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
5a983a31
Commit
5a983a31
authored
Sep 01, 2012
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Fix the incremental build.
parent
d83b0937
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/compile-system.lisp
View file @
5a983a31
...
...
@@ -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
extrac
t
))))
(
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment