mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-15 05:43:19 -08:00
Variables declared ignorable no longer produce a warning when removed from LET/LET* forms.
This commit is contained in:
parent
0af8370faf
commit
85b379e235
2 changed files with 7 additions and 2 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue