Changeset 76

Timestamp:

08/26/08 11:08:35 (3 months ago)

Author:

achiumenti

Message:

updated hunchentoot connector

Files:

• trunk/main/connectors/hunchentoot/src/hunchentoot.lisp (modified) (3 diffs)

trunk/main/connectors/hunchentoot/src/hunchentoot.lisp

@@ -30 +30 @@
 (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)
@@ -314 +315 @@
 (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)
@@ -321 +321 @@
 (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)