From b54a4e88873fc4f0b84c9c782d74eee6802a8dbd Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sun, 7 Feb 2010 12:26:39 +0100
Subject: [PATCH] Variables in the PPRINT-LOGICAL-BLOCK macro must be marked as
 ignorable.

---
 src/lsp/pprint.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index 716fccc34..be0be085a 100644
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -874,6 +874,7 @@
 	 (function
 	  `(ext::lambda-block ,block-name (,object-var ,stream-var
 					   &aux (,count-name 0))
+            (declare (ignorable ,object-var ,stream-var ,count-name))
 	    (macrolet ((pprint-pop ()
 			 '(progn
 			   (unless (pprint-pop-helper ,object-var ,count-name