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

DEBUG-ENV-PUSH/POP-VARS may also be simplified during PASS-DELETE-UNUSED-BINDINGS.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-27 12:56:42 +01:00
parent c31bc9bf53
commit 85679ffc6f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/new-cmp/cmppass.lsp
View file

@ -135,7 +135,9 @@ forms are also suppressed."
(unused-variable-p (if (consp v) (car v) v)))
(unused-bindings (form)
(and (c1form-p form)
(member (c1form-name form) '(BIND UNBIND BIND-REQUIREDS))
(member (c1form-name form) '(BIND UNBIND BIND-REQUIREDS
DEBUG-ENV-PUSH-VARS
DEBUG-ENV-POP-VARS))
(let ((new-args (delete-if #'unused-variable-binding-p
(c1form-arg 0 form))))
(setf (c1form-args form) (list new-args))
@ -186,9 +188,7 @@ forms are also suppressed."
(loop with lambda-list = (fun-lambda-list function)
with requireds = (first lambda-list)
for v in (fun-local-vars function)
do (setf (var-kind v) (compute-variable-rep-type v requireds))
do (format t "~&;;; Variable name ~A is type ~S location ~S" (var-name v)
(var-kind v) (var-loc v))))
do (setf (var-kind v) (compute-variable-rep-type v requireds))))
forms)