mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Activate the bytecodes compiler when statically linking ECL

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-14 18:05:53 +02:00
parent 67295f2f7f
commit 45434f51ba
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
contrib/bytecmp/bytecmp.lsp
View file

@ -99,17 +99,17 @@
(defun install-bytecodes-compiler ()
(ext::package-lock (find-package :cl) nil)
(pushnew :ecl-bytecmp *features*)
(setf (fdefinition compile) #'bc-compile
(fdefinition compile-file) #'bc-compile-file
(fdefinition compile-file-pathname) #'bc-compile-file-pathname)
(setf (fdefinition 'compile) #'bc-compile
(fdefinition 'compile-file) #'bc-compile-file
(fdefinition 'compile-file-pathname) #'bc-compile-file-pathname)
(ext::package-lock (find-package :cl) t))
#-ecl-min
(progn
#-windows
#+(and dlopen (not windows))
(sys::autoload "SYS:cmp" 'compile-file 'compile 'compile-file-pathname 'disassemble)
#+windows
(ext:install-bytecodes-compiler)
#-(or windows dlopen)
(install-bytecodes-compiler)
)
(provide 'BYTECMP)