production mode disabling html stack traces

[vibhu.m...@gmail.com]

;*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.")))

[o_z]

Thanks for the fix. I've added it to Weblocks source.
среда, 11 июня 2014 г., 23:48:51 UTC+3 пользователь vibhu.m...@gmail.com написал: