- (let ((lazy-reader (loop for super in (mop:class-precedence-list class)
- as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)
- when lazy-reader return it)))
- (if lazy-reader
- (setf (slot-value instance slot-name)
- (apply (car lazy-reader)
- (loop for arg-slot-name in (cdr lazy-reader)
- collect (slot-value instance arg-slot-name))))
- ;; No lazy reader -- defer to regular slot-unbound handling.
- (call-next-method))))
+ (let ((lazy-reader (loop for super in (class-precedence-list class)
+ as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)
+ when lazy-reader return it)))
+ (if lazy-reader
+ (setf (slot-value instance slot-name)
+ (apply (car lazy-reader)
+ (loop for arg-slot-name in (cdr lazy-reader)
+ collect (slot-value instance arg-slot-name))))
+ ;; No lazy reader -- defer to regular slot-unbound handling.
+ (call-next-method))))