- #'(lambda (class instance slotd)
- (declare (ignore slotd))
- (unless (fsc-instance-p instance) (error "not fsc"))
- (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)))
- (if (eq value +slot-unbound+)
- (slot-unbound class instance slot-name)
- value)))))
- (cons #'(lambda (class instance slotd)
- (declare (ignore slotd))
- (let ((value (cdr index)))
- (if (eq value +slot-unbound+)
- (slot-unbound class instance slot-name)
- value))))))
+ (lambda (class instance slotd)
+ (declare (ignore slotd))
+ (unless (fsc-instance-p instance) (error "not fsc"))
+ (let ((value (clos-slots-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 (clos-slots-ref (std-instance-slots instance)
+ index)))
+ (if (eq value +slot-unbound+)
+ (slot-unbound class instance slot-name)
+ value)))))
+ (cons (lambda (class instance slotd)
+ (declare (ignore slotd))
+ (let ((value (cdr index)))
+ (if (eq value +slot-unbound+)
+ (slot-unbound class instance slot-name)
+ value))))))