diff options
Diffstat (limited to 'lazybones-hunchentoot.lisp')
| -rw-r--r-- | lazybones-hunchentoot.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lazybones-hunchentoot.lisp b/lazybones-hunchentoot.lisp index d752238..4e4ca15 100644 --- a/lazybones-hunchentoot.lisp +++ b/lazybones-hunchentoot.lisp @@ -55,7 +55,9 @@ (declare (ignorable e)) (let ((lzb:*request* request) (lzb:*response* h:*reply*)) - (http-respond nil 500)))))) + (if lzb:*debugging* + (invoke-debugger e) + (http-respond nil 500))))))) ;;; SERVER FUNCTIONS @@ -173,6 +175,7 @@ HEADER-NAME can be a keyword or a string." (defun request-body (&key (request lzb:*request*) (want-stream-p nil)) "Returns the decoded request body. The value returned depends upon the value of the Content-Type request header." + (print "in request body") (if %request-body-cache% %request-body-cache% (setf %request-body-cache% (when (member (request-method request) +hunchentoot-methods-with-body+) |