Thanks for the fix. I've added it to Weblocks source. среда, 11 июня 2014 г., 23:48:51 UTC+3 пользователь [email protected] написал: > > ;*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.
