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

DECLARE was destructively modifying the compiler environment

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-07 22:12:32 +02:00
parent b48bc21580
commit 4ebd664c92
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpenv-declare.lsp
View file

@ -131,11 +131,10 @@ and a possible documentation string (only accepted when DOC-P is true)."
(return-from search-optimization-quality 3)))))))
(defun compute-optimizations (arguments env)
(let ((optimizations (cmp-env-all-optimizations env)))
(let ((optimizations (copy-list (cmp-env-all-optimizations env))))
(dolist (x arguments)
(when (symbolp x) (setq x (list x 3)))
(unless optimizations
(setq optimizations (cmp-env-all-optimizations)))
(when (symbolp x)
(setq x (list x 3)))
(if (or (not (consp x))
(not (consp (cdr x)))
(not (numberp (second x)))