From fa9de11603a4edde11ab2c53ac3f929db8f9bc8c Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Sat, 19 Oct 2002 14:41:44 +0000
Subject: [PATCH] Minor improvement on the previous commit.

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

diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp
index 34aaa4737..b49a0c097 100644
--- a/pcl/slots-boot.lisp
+++ b/pcl/slots-boot.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.12 2002/10/19 14:35:56 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.13 2002/10/19 14:41:44 pmai Exp $")
 ;;;
 
 (in-package :pcl)
@@ -79,6 +79,7 @@
 	`(asv-funcall ,sym ,slot-name boundp ,object))))
 
 (defun make-structure-slot-boundp-function (slotd)
+  (declare (ignore slotd))
   (lambda (object) (declare (ignore object)) t))
 
 (defun get-optimized-std-accessor-method-function (class slotd name)
-- 
GitLab