[bknr-cvs] hans changed trunk/bknr/web/src/web/handlers.lisp

[BKNR Commits]

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))