Clean up HANDLER-CASE in HTTP-DYNAMIC-DISPATCH
authorMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 3 Sep 2012 12:42:57 +0000 (12:42 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 3 Sep 2012 12:42:57 +0000 (12:42 +0000)
mmsoftware/cl/server/httpd.lisp

index 1a37ed3..e5748fc 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: httpd.lisp,v 1.7 2012/09/03 12:17:55 mmondor Exp $
+;;;; $Id: httpd.lisp,v 1.8 2012/09/03 12:42:57 mmondor Exp $
 
 #|
 
@@ -115,7 +115,7 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 (in-package :httpd)
 
 (defparameter *rcsid*
-  "$Id: httpd.lisp,v 1.7 2012/09/03 12:17:55 mmondor Exp $")
+  "$Id: httpd.lisp,v 1.8 2012/09/03 12:42:57 mmondor Exp $")
 
 (defparameter *server-version*
   (let ((parts (string-split *rcsid*
@@ -1376,10 +1376,8 @@ REQ is bound to VAR."
       (when fun
        (handler-case
            (funcall fun req connection)
-         ((or http-reply-signal http-reply-signal-nokeepalive) (c)
-           (error c))
-         (t (e)
-           (log-error e)
+         ((not (or http-reply-signal http-reply-signal-nokeepalive)) (c)
+           (log-error c)
            (http-error (connection-stream connection) 500 "Internal Error"
                        "A temporary internal error has occurred.")))
        (return-from http-dynamic-dispatch t))))