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

Optimization policies were overwritten by its own code, not being available in a fresh new image.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-27 10:24:48 +02:00
parent 145e0e6ec2
commit 33a9087056
3 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbols_list.h
View file

@ -1949,5 +1949,7 @@ cl_symbols[] = {
{EXT_ "UNIX-SIGNAL-RECEIVED-CODE", EXT_ORDINARY, NULL, -1, OBJNULL},
{KEY_ "CODE", KEYWORD, NULL, -1, OBJNULL},
{EXT_ "ASSUME-RIGHT-TYPE", EXT_ORDINARY, NULL, -1, OBJNULL},
/* Tag for end of list */
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};

2
src/c/symbols_list2.h
View file

@ -1949,5 +1949,7 @@ cl_symbols[] = {
{EXT_ "UNIX-SIGNAL-RECEIVED-CODE",NULL},
{KEY_ "CODE",NULL},
{EXT_ "ASSUME-RIGHT-TYPE",NULL},
/* Tag for end of list */
{NULL,NULL}};

8
src/cmp/cmppolicy.lsp
View file

@ -31,10 +31,6 @@
(setf (gethash 'compilation-speed *optimization-quality-switches*)
'#1=((0 . 0) . #1#)))
(eval-when (:load-toplevel)
(defparameter *optimization-quality-switches*
#.*optimization-quality-switches*))
#.`(eval-when (:compile-toplevel :execute :load-toplevel)
,@(loop for name in +optimization-quality-orders+
for i from 0 by 4
@ -318,3 +314,7 @@ INTGERP, STRINGP.")
(defun compiler-push-events ()
(>= (cmp-env-optimization 'safety) 3))
(eval-when (:load-toplevel)
(defparameter *optimization-quality-switches*
#.*optimization-quality-switches*))