-(defmethod slot-unbound :around ((class hyperobject-class) instance slot-name)\r
- (let ((lazy-reader (loop for super in (class-precedence-list class)\r
- as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)\r
- when lazy-reader return it)))\r
+(defmethod slot-unbound ((class hyperobject-class) instance slot-name)\r
+ (let ((lazy-reader\r
+ (loop for super in (class-precedence-list class)\r
+ as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)\r
+ when lazy-reader return it)))\r