(defmethod log.level ((cat log-category)) (with-slots (level) cat (or level (if (ancestors cat) (loop for ancestor in (ancestors cat) minimize (log.level ancestor)) (error "Can't determine level for ~S" cat)))))