Variables declared ignorable no longer produce a warning when removed from LET/LET* forms.

This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 01:21:26 +01:00
parent 0af8370faf
commit 85b379e235
2 changed files with 7 additions and 2 deletions

View file

@ -23,6 +23,9 @@ ECL 10.1.1:
- The interrupt servicing thread must explicitely include the interrupt signal
among the ones it captures. Otherwise it will never be interrupted itself.
- No longer style warnings about removal of a variable when this variable was
previously declared as ignorable.
* Visible changes:
- Significant speed up in access to hash tables of up to 30% by writing

View file

@ -88,7 +88,8 @@
(when (and (= 0 (var-ref var))
(not (member (var-kind var) '(special global)))
(not (form-causes-side-effect form)))
(cmpnote "Removing unused variable ~A" (var-name var))
(unless (var-ignorable var)
(cmpnote "Removing unused variable ~A" (var-name var)))
(go continue))
;; (let ((v1 e1) (v2 e2) (v3 e3)) (expr e4 v2 e5))
;; can become
@ -322,7 +323,8 @@
(when (and (= 0 (var-ref var))
(not (member (var-kind var) '(SPECIAL GLOBAL)))
(not (form-causes-side-effect form)))
(cmpnote "Removing unused variable ~A" (var-name var))
(unless (var-ignorable var)
(cmpnote "Removing unused variable ~A" (var-name var)))
(go continue))
;; (let* ((v1 e1) (v2 e2) (v3 e3)) (expr e4 v2 e5))
;; can become