From 85679ffc6febf310bd893752b23c87c9e4d7362e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 27 Dec 2009 12:56:42 +0100 Subject: [PATCH] DEBUG-ENV-PUSH/POP-VARS may also be simplified during PASS-DELETE-UNUSED-BINDINGS. --- src/new-cmp/cmppass.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/new-cmp/cmppass.lsp b/src/new-cmp/cmppass.lsp index 15db7847b..55f304cd4 100644 --- a/src/new-cmp/cmppass.lsp +++ b/src/new-cmp/cmppass.lsp @@ -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)