Add trivial-backtrace

src/config.lisp

@@ -1,8 +1,7 @@
 (defpackage #:hp/config
   (:use #:cl)
   (:import-from #:log4cl)
-  (:export #:*env*
-           #:dev-mode-p
+  (:export #:dev-mode-p
            #:prod-mode-p))
 (in-package #:hp/config)
 

src/middlewares/recovery.lisp

@@ -1,9 +1,16 @@
 (defpackage #:hp/middlewares/recovery
   (:use #:cl)
   (:import-from #:log4cl)
+  (:local-nicknames (#:tb #:trivial-backtrace))
+  (:local-nicknames (#:cfg #:hp/config))
   (:export #:*recovery*))
 (in-package #:hp/middlewares/recovery)
 
+(defun message (condition)
+  (if (cfg:dev-mode-p)
+      (tb:print-backtrace condition :output nil)
+      "Internal Server Error"))
+
 (defparameter *recovery*
   (lambda (app)
     (lambda (env)
@@ -12,4 +19,4 @@
         (error (c)
           (log:error "Unhandled error caught: ~a" c)
           `(500 (:content-type "text/plain")
-                ("Internal Server Error")))))))
+                (,(message c))))))))