Skip to content
Snippets Groups Projects
Commit ba45f7c5 authored by pmai's avatar pmai
Browse files

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.
parent 7b6c79c4
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (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) (in-package :pcl)
...@@ -181,7 +181,6 @@ ...@@ -181,7 +181,6 @@
(funcall function nv object))) (funcall function nv object)))
(defun make-optimized-structure-slot-boundp-using-class-method-function () (defun make-optimized-structure-slot-boundp-using-class-method-function ()
(declare (type function function))
(lambda (class object slotd) (lambda (class object slotd)
(declare (ignore class object slotd)) (declare (ignore class object slotd))
t)) t))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment