diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp index 6da9ee0f9b1c93c417af94ef4bab7eda29825e67..fc530aa856234af1b1f5ce72dfeb54f9ca0b72a1 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))