Commit fa20aea3 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix combine-fasls on lispworks, better.

parent ef99e12f
...@@ -785,7 +785,6 @@ it will filter them appropriately." ...@@ -785,7 +785,6 @@ 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 :force t))
(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))))))
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