diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp index fc416c9643bcfc534cce2dfbbcfc71cd06badb15..34aaa47370743d712e2eedf5e25f5310942bf972 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.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) @@ -78,17 +78,8 @@ `(slot-boundp-normal ,object ',slot-name) `(asv-funcall ,sym ,slot-name boundp ,object)))) - -(defun structure-slot-boundp (object) - (declare (ignore object)) - t) - (defun make-structure-slot-boundp-function (slotd) - (let* ((reader (slot-definition-internal-reader-function slotd)) - (fun (lambda (object) - (not (eq (funcall reader object) +slot-unbound+))))) - (declare (type function reader)) - fun)) + (lambda (object) (declare (ignore object)) t)) (defun get-optimized-std-accessor-method-function (class slotd name) (if (structure-class-p class)