From ba45f7c56de33d4e7335befd8bfe4c6270157717 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Thu, 28 Nov 2002 16:18:19 +0000
Subject: [PATCH] Removed now obsolete and incorrect type declaration for the
 FUNCTION argument to
 MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION which was
 flushed in version 1.14.

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

diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp
index 6da9ee0f9..fc530aa85 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.15 2002/10/29 16:20:44 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.16 2002/11/28 16:18:19 pmai Exp $")
 ;;;
 
 (in-package :pcl)
@@ -181,7 +181,6 @@
     (funcall function nv object)))
 
 (defun make-optimized-structure-slot-boundp-using-class-method-function ()
-  (declare (type function function))
   (lambda (class object slotd)
     (declare (ignore class object slotd))
     t))
-- 
GitLab