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