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

Fix combine-fasls on lispworks, better.

parent ef99e12f
Loading
Loading
Loading
Loading
+1 −2
Original line number Diff line number Diff line
@@ -785,7 +785,6 @@ it will filter them appropriately."
                      :members
                      ,(loop :for f :in (reverse fasls)
                             :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 :force t))
        (loop :for f :in fasls :do (ignore-errors (delete-file f)))
        (ignore-errors (lispworks:delete-system :fasls-to-concatenate))))))