Introduce a *feature* keyword for debug purpose

core/jobs.lisp

@@ -20,6 +20,9 @@
                 #:defmodule))
 (in-package :stoe/core/jobs)
 
+#+stoe-debug
+(setf blackbird-base:*debug-on-error* t)
+
 (defclass job ()
   ((id :initarg :id :reader id)
    (fun :initarg :fun :reader job-fun

stoe.asd

@@ -15,6 +15,7 @@
 (in-package :stoe-asd)
 
 (pushnew :stoe-foreign-assets *features*)
+(pushnew :stoe-debug *features*)
 
 (defsystem stoe
   :version (:read-file-form "VERSION")
@@ -36,6 +37,7 @@
   :defsystem-depends-on (:asdf-package-system)
   :class :package-inferred-system
   :around-compile (lambda (thunk)
+                    #+stoe-debug
                     (proclaim '(optimize (debug 3) (safety 3) (speed 0)))
                     (funcall thunk))
   :depends-on ("alexandria"