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

(DECLARE (OPTIMIZE DEBUG)) is ignored, but no warning is issued.

Browse source
This commit is contained in:
jjgarcia 2001-09-29 11:02:40 +00:00
parent d8460be1cf
commit 2c35fb9a2c
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpenv.lsp
View file

@ -216,6 +216,7 @@
(not (<= 0 (second x) 3)))
(warn "The OPTIMIZE proclamation ~s is illegal." x)
(case (car x)
(DEBUG)
(SAFETY (setq *compiler-check-args* (>= (second x) 1))
(setq *safe-compile* (>= (second x) 2))
(setq *compiler-push-events* (>= (second x) 3)))
@ -401,6 +402,7 @@
(not (<= 0 (second x) 3)))
(warn "The OPTIMIZE proclamation ~s is illegal." x)
(case (car x)
(DEBUG)
(SAFETY
(let ((level (second x)))
(declare (fixnum level))