(defmethod (setf log.level) (new-level (cat-name symbol) &optional (recursive t)) (setf (log.level (get-logger cat-name) recursive) new-level))