adding (print-stack-trace exn) for http internal errors

This commit is contained in:
Alex Shinn 2017-08-25 00:01:03 +09:00
parent 22af18dd18
commit ba0d15ec14

View file

@ -38,6 +38,7 @@
(protect (exn
(else
(log-error "internal error: " exn)
(print-stack-trace exn)
(servlet-respond request 500 "Internal server error")))
(let restart ((request request))
(servlet cfg request servlet-bad-request restart)))))