From 58b90b23d814f77f0960dffdeb6a2f1aed28ad12 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Sun, 28 Dec 1997 18:42:32 +0000
Subject: [PATCH] Use IGNORABLE declaration for .ARGS-TAIL. to kill spurious
 warnings when &aux vars are used in defmethods

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

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 22fd4edfe..220a02c34 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -980,7 +980,7 @@ work during bootstrapping.
       (let ((bindings (mapcan #'process-var lambda-list)))
 	`(let* ((,args-tail ,args)
 		,@bindings)
-	   ,@(unless bindings `((declare (ignore ,args-tail))))
+	   (declare (ignorable ,args-tail))
 	   ,@body)))))
 
 (defun get-key-arg (keyword list)
-- 
GitLab