;*show-lisp-errors-p* is set indirectly by (start-weblocks :debug x)
(defmethod handle-error-condition :around ((app weblocks-webapp) c)
(if *show-lisp-errors-p* (call-next-method) (handle-prod-error app c)))
(defun handle-prod-error (app c)
(setf (weblocks::return-code*) 500)
(weblocks::with-error-page-html ("500 Internal Server Error" "Error
caught")
(:p "There was an unexpected error.")))
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
