Revision: 4632 Author: edi URL: http://bknr.net/trac/changeset/4632

No content-type header

U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/reply.lisp

Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2011-01-21 19:01:44 UTC (rev 4631) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2011-01-21 19:07:58 UTC (rev 4632) @@ -1,3 +1,4 @@ +Allow no Content-Type header (Chaitanya Gupta) Patch for compilation with ECL (Sohail Somani) Fix DEFINE-EASY-HANDLER for multiple acceptors (Nicolas Neuss) Revived *SHOW-LISP-BACKTRACES-P*

Modified: trunk/thirdparty/hunchentoot/reply.lisp =================================================================== --- trunk/thirdparty/hunchentoot/reply.lisp 2011-01-21 19:01:44 UTC (rev 4631) +++ trunk/thirdparty/hunchentoot/reply.lisp 2011-01-21 19:07:58 UTC (rev 4632) @@ -154,5 +154,5 @@ (setf (slot-value reply 'content-length) new-value)) (:method :after (new-value (name (eql :content-type)) &optional (reply *reply*)) "Special case for the `Content-Type' header." - (check-type new-value string) + (check-type new-value (or null string)) (setf (slot-value reply 'content-type) new-value)))