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

Remove debug statements which were emitted as compiler notes

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-18 00:25:49 +02:00
parent 5553144a40
commit a2e2ed1590
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmplet.lsp
View file

@ -131,7 +131,7 @@
(not (member (var-kind var) '(special global)))
(not (form-causes-side-effect form)))
(unless (var-ignorable var)
(cmpnote "Removing unused variable ~A" (var-name var)))
(cmpdebug "Removing unused variable ~A" (var-name var)))
(delete-c1forms form)
t))
@ -333,7 +333,7 @@
(case (c1form-name form)
(LOCATION
(when (can-be-replaced* var body (cdr fl))
(cmpnote "Replacing variable ~a by its value" (var-name var))
(cmpdebug "Replacing variable ~a by its value" (var-name var))
(setf (var-kind var) 'REPLACED
(var-loc var) (c1form-arg 0 form))))
(VAR
@ -346,7 +346,7 @@
(can-be-replaced* var body (cdr fl))
(not (var-changed-in-form-list var1 (rest fl)))
(not (var-changed-in-form var1 body)))
(cmpnote "Replacing variable ~a by its value" (var-name var))
(cmpdebug "Replacing variable ~a by its value" (var-name var))
(setf (var-kind var) 'REPLACED
(var-loc var) var1)))))
(unless env-grows