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

Do not use static constants when compiling Lisp code other than ECL's core

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-23 21:43:37 +01:00
parent 92fd2856ba
commit 2668b414cb
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpwt.lsp
View file

@ -280,7 +280,9 @@
nil
#-:msvc
;; FIXME! The Microsoft compiler does not allow static initialization of bit fields.
(unless (or *compiler-constants* (not (listp *static-constants*)))
(unless (or *compiler-constants*
(not *use-static-constants-p*)
(not (listp *static-constants*)))
(let ((record (find object *static-constants* :key #'first :test #'equal)))
(if record
(second record)