Commit c0fb198e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Use c::build-program &co on ECL, not c::builder

Make sure to use c::build-program and not just c:build-program because
the symbol won't be external when using the ecl bytecode interpreter.
parent 81e4f08d
......@@ -445,14 +445,18 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
(shell-boolean-exit
(restore-image))))))))
(when forms `(progn ,@forms))))))
#+(or clasp ecl) (check-type kind (member :dll :lib :static-library :program :object :fasl))
#+(or clasp ecl) (check-type kind (member :dll :shared-library :lib :static-library :program :fasl))
(apply #+clasp 'cmp:builder #+clasp kind
#+ecl 'c::builder #+ecl kind
#+mkcl (ecase kind
((:dll) 'compiler::build-shared-library)
((:lib :static-library) 'compiler::build-static-library)
((:fasl) 'compiler::build-bundle)
((:program) 'compiler::build-program))
#+(or ecl mkcl)
(ecase kind
((:dll :shared-library)
#+ecl 'c::build-shared-library #+mkcl 'compiler:build-shared-library)
((:lib :static-library)
#+ecl 'c::build-static-library #+mkcl 'compiler:build-static-library)
((:fasl)
#+ecl 'c::build-fasl #+mkcl 'compiler:build-fasl)
((:program)
#+ecl 'c::build-program #+mkcl 'compiler:build-program))
(pathname destination)
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files (append lisp-object-files #+(or clasp ecl) extra-object-files)
#+(or clasp ecl) :init-name #+(or clasp ecl) (c::compute-init-name (or output-name destination) :kind kind)
......
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