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

DECLAIM did not work because the routine ADD-DEFAULT-OPTIMIZATIONS did not inspect the root environment

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-25 11:31:14 +02:00
parent 4a20d0d23c
commit cfde0986fd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmppolicy.lsp
View file

@ -93,7 +93,7 @@
(cmp-env-add-declaration 'optimization (list new) env)))))
(defun add-default-optimizations (env)
(if (cmp-env-search-declaration 'optimization)
(if (cmp-env-search-declaration 'optimization env)
env
(cmp-env-add-declaration 'optimization (list (default-policy)) env)))