From 248347e7edbc24d4fc026436dfe96b551076af14 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 7 May 2015 03:52:06 -0400
Subject: [PATCH] Fix compile-check support.

It was broken by the clasp support patch.
---
 uiop/lisp-build.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/uiop/lisp-build.lisp b/uiop/lisp-build.lisp
index 8a664d219..e748a898c 100644
--- a/uiop/lisp-build.lisp
+++ b/uiop/lisp-build.lisp
@@ -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))
-- 
GitLab