(etypecase index
(fixnum (if fsc-p
#'(lambda (instance)
- (let ((value (%instance-ref (fsc-instance-slots instance) index)))
+ (let ((value (instance-ref (fsc-instance-slots instance) index)))
(if (eq value +slot-unbound+)
(slot-unbound (class-of instance) instance slot-name)
value)))
#'(lambda (instance)
- (let ((value (%instance-ref (std-instance-slots instance) index)))
+ (let ((value (instance-ref (std-instance-slots instance) index)))
(if (eq value +slot-unbound+)
(slot-unbound (class-of instance) instance slot-name)
value)))))
(etypecase index
(fixnum (if fsc-p
#'(lambda (nv instance)
- (setf (%instance-ref (fsc-instance-slots instance) index) nv))
+ (setf (instance-ref (fsc-instance-slots instance) index) nv))
#'(lambda (nv instance)
- (setf (%instance-ref (std-instance-slots instance) index) nv))))
+ (setf (instance-ref (std-instance-slots instance) index) nv))))
(cons #'(lambda (nv instance)
(declare (ignore instance))
(setf (cdr index) nv))))
(etypecase index
(fixnum (if fsc-p
#'(lambda (instance)
- (not (eq (%instance-ref (fsc-instance-slots instance)
+ (not (eq (instance-ref (fsc-instance-slots instance)
index)
+slot-unbound+)))
#'(lambda (instance)
- (not (eq (%instance-ref (std-instance-slots instance)
+ (not (eq (instance-ref (std-instance-slots instance)
index)
+slot-unbound+)))))
(cons #'(lambda (instance)
#'(lambda (class instance slotd)
(declare (ignore slotd))
(unless (fsc-instance-p instance) (error "not fsc"))
- (let ((value (%instance-ref (fsc-instance-slots instance) index)))
+ (let ((value (instance-ref (fsc-instance-slots instance) index)))
(if (eq value +slot-unbound+)
(slot-unbound class instance slot-name)
value)))
#'(lambda (class instance slotd)
(declare (ignore slotd))
(unless (std-instance-p instance) (error "not std"))
- (let ((value (%instance-ref (std-instance-slots instance) index)))
+ (let ((value (instance-ref (std-instance-slots instance) index)))
(if (eq value +slot-unbound+)
(slot-unbound class instance slot-name)
value)))))
(fixnum (if fsc-p
#'(lambda (nv class instance slotd)
(declare (ignore class slotd))
- (setf (%instance-ref (fsc-instance-slots instance) index) nv))
+ (setf (instance-ref (fsc-instance-slots instance) index) nv))
#'(lambda (nv class instance slotd)
(declare (ignore class slotd))
- (setf (%instance-ref (std-instance-slots instance) index) nv))))
+ (setf (instance-ref (std-instance-slots instance) index) nv))))
(cons #'(lambda (nv class instance slotd)
(declare (ignore class instance slotd))
(setf (cdr index) nv)))))
(fixnum (if fsc-p
#'(lambda (class instance slotd)
(declare (ignore class slotd))
- (not (eq (%instance-ref (fsc-instance-slots instance)
+ (not (eq (instance-ref (fsc-instance-slots instance)
index)
+slot-unbound+ )))
#'(lambda (class instance slotd)
(declare (ignore class slotd))
- (not (eq (%instance-ref (std-instance-slots instance)
+ (not (eq (instance-ref (std-instance-slots instance)
index)
+slot-unbound+ )))))
(cons #'(lambda (class instance slotd)
(assq slot-name (wrapper-class-slots wrapper)))))
(typecase index
(fixnum
- (let ((value (%instance-ref (get-slots instance) index)))
+ (let ((value (instance-ref (get-slots instance) index)))
(if (eq value +slot-unbound+)
(slot-unbound (class-of instance) instance slot-name)
value)))