From 5a7d677a827c31f87f3b160a562b9cf15b8541d0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 23 Oct 1991 15:58:57 +0000
Subject: [PATCH] Added ignorable declarations on some spurious variable
 bindings.

---
 pcl/boot.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index eb38a60a8..9d690d35d 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -1362,6 +1362,7 @@ work during bootstrapping.
 (defmacro with-slots (slots instance &body body)
   (let ((in (gensym)))
     `(let ((,in ,instance))
+       #+cmu (declare (ext:ignorable ,in))
        ,@(and (symbolp instance)
 	      `((declare (variable-rebinding ,in ,instance))
        (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
@@ -1381,6 +1382,7 @@ work during bootstrapping.
 (defmacro with-accessors (slots instance &body body)
   (let ((in (gensym)))
     `(let ((,in ,instance))
+       #+cmu (declare (ext:ignorable ,in))
        ,@(and (symbolp instance)
 	      `((declare (variable-rebinding ,in ,instance))
        (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
-- 
GitLab