Revision: 4598 Author: hans URL: http://bknr.net/trac/changeset/4598
remove own error handler U trunk/bknr/web/src/web/handlers.lisp
Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2010-08-25 16:01:39 UTC (rev 4597) +++ trunk/bknr/web/src/web/handlers.lisp 2010-08-29 06:05:06 UTC (rev 4598) @@ -316,19 +316,11 @@ (make-hash-table))) (*random-state* (make-random-state t))) (do-log-request) - (handler-bind - ((error #'(lambda (e) - (with-http-response (:content-type "text/html; charset=UTF-8" - :response +http-internal-server-error+) - (return-from invoke-handler (prog1 - (with-http-body () - (website-show-error-page *website* e)) - (do-error-log-request e))))))) - (let ((start (get-internal-real-time))) - (prog1 - (handle handler) - (let ((duration (- (get-internal-real-time) start))) - (note-run-time-for-statistics handler duration))))))) + (let ((start (get-internal-real-time))) + (prog1 + (handle handler) + (let ((duration (- (get-internal-real-time) start))) + (note-run-time-for-statistics handler duration))))))
(defmethod handle ((page-handler page-handler))