From eb468f92fdfc30fcaa3abafb994b80cf36aa0bd9 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sat, 16 Nov 2013 21:34:50 +0100
Subject: [PATCH] Review critical log levels and use FATAL and PANIC as in
 PostgreSQL.

---
 src/utils.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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