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

Committed patch by Gerd Moellmann which removes the unused function

structure-slot-boundp, and removes code to check structure slots
against +slot-unbound+, since structure slots are always bound.
parent 1641134a
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.11 2002/10/19 14:32:44 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.12 2002/10/19 14:35:56 pmai Exp $")
;;; ;;;
(in-package :pcl) (in-package :pcl)
...@@ -78,17 +78,8 @@ ...@@ -78,17 +78,8 @@
`(slot-boundp-normal ,object ',slot-name) `(slot-boundp-normal ,object ',slot-name)
`(asv-funcall ,sym ,slot-name boundp ,object)))) `(asv-funcall ,sym ,slot-name boundp ,object))))
(defun structure-slot-boundp (object)
(declare (ignore object))
t)
(defun make-structure-slot-boundp-function (slotd) (defun make-structure-slot-boundp-function (slotd)
(let* ((reader (slot-definition-internal-reader-function slotd)) (lambda (object) (declare (ignore object)) t))
(fun (lambda (object)
(not (eq (funcall reader object) +slot-unbound+)))))
(declare (type function reader))
fun))
(defun get-optimized-std-accessor-method-function (class slotd name) (defun get-optimized-std-accessor-method-function (class slotd name)
(if (structure-class-p class) (if (structure-class-p class)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment