- (or (gethash class *info-classes*)
- (error "~S is not a defined info class." class))))
- (if (symbolp class)
- (or (get class 'class-info-or-lose-cache)
- (setf (get class 'class-info-or-lose-cache)
- (lookup class)))
- (lookup class)))
+ (or (gethash class *info-classes*)
+ (error "~S is not a defined info class." class))))
+ (if (symbolp class)
+ (or (get class 'class-info-or-lose-cache)
+ (setf (get class 'class-info-or-lose-cache)
+ (lookup class)))
+ (lookup class)))