- (if (atom lazy-reader)\r
- (make-instance lazy-reader)\r
- (apply (car lazy-reader)\r
- (loop for arg-slot-name in (cdr lazy-reader)\r
- collect (slot-value instance arg-slot-name)))))\r
- ;; No lazy reader -- defer to regular slot-unbound handling.\r
- (call-next-method))))\r
+ (if (atom lazy-reader)\r
+ (make-instance lazy-reader)\r
+ (apply (car lazy-reader)\r
+ (loop for arg-slot-name in (cdr lazy-reader)\r
+ collect (slot-value instance arg-slot-name)))))\r
+ ;; No lazy reader -- defer to regular slot-unbound handling.\r
+ (call-next-method))))\r