diff --git a/src/utils.lisp b/src/utils.lisp index 4b06da1..9407c93 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -7,8 +7,9 @@ ;;; Logs ;;; ;;; First define the log categories -(defcategory :critical) -(defcategory :log (or :log :critical)) +(defcategory :panic) +(defcategory :fatal (or :fatal :panic)) +(defcategory :log (or :log :fatal)) (defcategory :error (or :error :log)) (defcategory :warning (or :warning :error)) (defcategory :notice (or :notice :warning)) @@ -290,6 +291,8 @@ &key before finally parallel) "Report the full story when given three different sections of reporting." + (terpri) + ;; BEFORE (if before (progn