Add trivial-backtrace

qlfile

@@ -6,3 +6,4 @@ git ningle-fbr https://github.com/skyizwhite/ningle-fbr.git
 ql cl-ppcre
 ql log4cl
 ql function-cache
+ql trivial-backtrace

qlfile.lock

@@ -34,3 +34,7 @@
  (:class qlot/source/ql:source-ql
   :initargs (:%version :latest)
   :version "ql-2023-10-21"))
+("trivial-backtrace" .
+ (:class qlot/source/ql:source-ql
+  :initargs (:%version :latest)
+  :version "ql-2023-10-21"))

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))))))))