diff --git a/uiop/image.lisp b/uiop/image.lisp index a34c7b35033a01b12b155c076d7e007b6ca34a59..7915ab5bdd416f5b42809016dc12bf42c7b97419 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)