Permalink
Browse files

Merge pull request #152 from dkochmanski/master

hunchentoot: lift up handler-case in acceptor-dispatch-request
  • Loading branch information...
fukamachi committed Jun 12, 2018
2 parents ac7f785 + de4cf24 commit f31eba7508da1b89b0cf10840307826d6b0edac7
Showing with 6 additions and 7 deletions.
  1. +6 −7 src/handler/hunchentoot.lisp
@@ -62,13 +62,12 @@
(let ((app (acceptor-app acceptor))
(env (acceptor-handle-request acceptor req))
(hunchentoot:*catch-errors-p* nil))
(handle-response
(if (acceptor-debug acceptor)
(funcall app env)
(handler-case (funcall app env)
(error (error)
(princ error *error-output*)
'(500 () ("Internal Server Error"))))))))
(if (acceptor-debug acceptor)
(handle-response (funcall app env))
(handler-case (handle-response (funcall app env))
(error (error)
(princ error *error-output*)
'(500 () ("Internal Server Error")))))))
(defmethod hunchentoot:process-connection :around ((acceptor clack-acceptor) socket)
(let ((flex:*substitution-char* #-(or abcl lispworks) #\Replacement_Character

0 comments on commit f31eba7

Please sign in to comment.