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
asdf
asdf
Commits
d569aea2
Commit
d569aea2
authored
Sep 13, 2015
by
Francois-Rene Rideau
Browse files
Fix combine-fasls on lispworks.
parent
42600064
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/lisp-build.lisp
View file @
d569aea2
...
@@ -785,6 +785,7 @@ it will filter them appropriately."
...
@@ -785,6 +785,7 @@ it will filter them appropriately."
:members
:members
,
(
loop
:for
f
:in
(
reverse
fasls
)
,
(
loop
:for
f
:in
(
reverse
fasls
)
:collect
`
(
,
(
namestring
f
)
:load-only
t
))))
:collect
`
(
,
(
namestring
f
)
:load-only
t
))))
(
delete-file-if-exists
output
)
(
scm:concatenate-system
output
:fasls-to-concatenate
))
(
scm:concatenate-system
output
:fasls-to-concatenate
))
(
loop
:for
f
:in
fasls
:do
(
ignore-errors
(
delete-file
f
)))
(
loop
:for
f
:in
fasls
:do
(
ignore-errors
(
delete-file
f
)))
(
ignore-errors
(
lispworks:delete-system
:fasls-to-concatenate
))))))
(
ignore-errors
(
lispworks:delete-system
:fasls-to-concatenate
))))))
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