From 2994552a3ce71cae105d23a385fdb9e7ddc61575 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 7 May 2015 19:25:09 -0400
Subject: [PATCH] Fix more breakage of ECL and MKCL by the improperly merged
 CLASP patch.

---
 uiop/image.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uiop/image.lisp b/uiop/image.lisp
index a34c7b35..7915ab5b 100644
--- a/uiop/image.lisp
+++ b/uiop/image.lisp
@@ -450,7 +450,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
                  (when forms `(progn ,@forms))))))
       #+(or clasp ecl) (check-type kind (member :dll :lib :static-library :program :object :fasl))
       (apply #+clasp 'cmp:builder #+clasp kind
-             #+(or ecl (not clasp)) 'c::builder #+(or ecl (not clasp)) kind
+             #+(and ecl (not clasp)) 'c::builder #+(and ecl (not clasp)) kind
              #+mkcl (ecase kind
                       ((:dll) 'compiler::build-shared-library)
                       ((:lib :static-library) 'compiler::build-static-library)
-- 
GitLab