[claw-cvs] r76 - trunk/main/connectors/hunchentoot/src

[achiumenti at common-lisp.net]

Author: achiumenti
Date: Tue Aug 26 07:08:35 2008
New Revision: 76

Modified:
   trunk/main/connectors/hunchentoot/src/hunchentoot.lisp
Log:
updated hunchentoot connector

Modified: trunk/main/connectors/hunchentoot/src/hunchentoot.lisp
==============================================================================
--- trunk/main/connectors/hunchentoot/src/hunchentoot.lisp	(original)
+++ trunk/main/connectors/hunchentoot/src/hunchentoot.lisp	Tue Aug 26 07:08:35 2008
@@ -29,8 +29,9 @@
 
 (in-package :hunchentoot-connector)
 
-(setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf))
-(setf hunchentoot:*default-content-type* "text/html; charset=utf-8")
+(setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)
+      hunchentoot:*default-content-type* "text/html; charset=utf-8"
+      hunchentoot:*handle-http-errors-p* nil)
 
 (defgeneric claw-to-hunchentoot-cookie (claw-cookie)
   (:documentation "Returns hunchentoot cookie from a claw cookie"))
@@ -313,14 +314,12 @@
 
 (defmethod (setf connector-reply-external-format-encoding) (value (connector hunchentoot-connector))
   (let ((encoding (flexi-streams:external-format-name (hunchentoot:reply-external-format))))
-    ;(log-message :info "ENCODING: ~a| VALUE: ~a" encoding value)
     (unless (and (null value) (equal encoding value))
       (setf (hunchentoot:reply-external-format)
             (flex:make-external-format value :eol-style :lf)))))
 
 (defmethod connector-writer ((connector hunchentoot-connector))
   (hunchentoot:send-headers))
-  ;*standard-output*)
 
 (defmethod connector-redirect ((connector hunchentoot-connector) target &key host port protocol add-session-id code)
   (hunchentoot:redirect target