Commit 248347e7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix compile-check support.

It was broken by the clasp support patch.
parent 71c19754
......@@ -718,10 +718,11 @@ it will filter them appropriately."
(when (and #+(or clasp ecl) object-file)
(setf output-truename
(compiler::build-fasl tmp-file
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files
(list object-file))))
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files (list object-file))))
(or (not compile-check)
(apply compile-check input-file :output-file #+clasp output-file #+ecl tmp-file keywords))))
(apply compile-check input-file
:output-file #-(or clasp ecl) output-file #+(or clasp ecl) tmp-file
keywords))))
(delete-file-if-exists output-file)
(when output-truename
#+clasp (when output-truename (rename-file-overwriting-target tmp-file output-truename))
......
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