From a2e2ed15909e3305850ff157669c60c35336534c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 18 May 2010 00:25:49 +0200 Subject: [PATCH] Remove debug statements which were emitted as compiler notes --- src/cmp/cmplet.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp index 11745a690..3f666c8ae 100644 --- a/src/cmp/cmplet.lsp +++ b/src/cmp/cmplet.lsp @@ -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