@@ -1,6 +1,7 @@

 (declaim (optimize (debug 3) (speed 0 ) (safety 3)) )

 ;;;; lyangulus.lisp

+(ql:quickload :clack-errors)

 (in-package #:lyangulus)

 (defparameter *submissions* nil)

 (defparameter *by-distinct* (make-hash-table :test #'equalp))

@@ -122,6 +123,11 @@

                       (if (equal approval "-") "rejected"))))))

         '(302 (:location "/") ("Done"))))

+(setf (ningle:route *app* "/1" :method :GET)

+      (i-lambda (params)

+        `(200 ()

+          (,(format nil "~a" (/ 1 0))))))

+

 (setf (ningle:route *app* "/login" :method :GET)

       (i-lambda (params)

         `(200 ()

@@ -199,12 +205,13 @@

                     (intern (string-upcase (elt tmp 1)) 'keyword)

                     :hunchentoot)))

       (push (clack:clackup

-              (lack.builder:builder

-                :session

-                (:static :path "/static/" :root #p"./static/")

-                :backtrace

-                *app*

-                )

+              (funcall clack-errors:*clack-error-middleware*

+                       (lack.builder:builder

+                         :session

+                         (:static :path "/static/" :root #p"./static/")

+                         :backtrace

+                         *app*

+                         ))

               :port 9090

               :server server)

             handler)))