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

Bytecode compiled functions can now be externalized in C compiled files

Browse source
This commit is contained in:
jgarcia 2008-04-22 13:43:03 +00:00
parent 5243018392
commit 284ceaf244
4 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpwt.lsp
View file

@ -153,6 +153,7 @@
(*print-case* :downcase)
(*print-gensym* t)
(*print-array* t)
(*print-readably* t)
(*read-default-float-format* 'single-float)
(sys::*print-package* (find-package "CL"))
(sys::*print-structure* t)
@ -201,8 +202,6 @@
(defun add-object (object &key (duplicate nil)
(permanent (or (symbolp object) *permanent-data*)))
(when (and (not *compiler-constants*) (typep object '(or function package)))
(error "Object ~S cannot be externalized" object))
;; FIXME! Currently we have two data vectors and, when compiling
;; files, it may happen that a constant is duplicated and stored
;; both in VV and VVtemp. This would not be a problem if the