- (let ((conditions (remove-if-not (lambda (a)
- (eq a attribute))
- (gethash
- (attribute-object attribute)
- lol::*invalid-objects*)
- :key #'car)))
+ (let ((conditions (remove-if-not
+ (lambda (a)
+ (eq a attribute))
+ (gethash
+ (attribute-object attribute)
+ lol::*invalid-objects*)
+ :key #'car)))