[bknr-cvs] hans changed trunk/thirdparty/drakma/request.lisp

[BKNR Commits]

Revision: 3564
Author: hans
URL: http://bknr.net/trac/changeset/3564

When the caller wants text, always return a string.

U   trunk/thirdparty/drakma/request.lisp

Modified: trunk/thirdparty/drakma/request.lisp
===================================================================
--- trunk/thirdparty/drakma/request.lisp	2008-07-22 17:03:24 UTC (rev 3563)
+++ trunk/thirdparty/drakma/request.lisp	2008-07-22 18:49:39 UTC (rev 3564)
@@ -146,7 +146,7 @@
     #+:clisp
     (setf (flexi-stream-element-type stream) element-type)
     (multiple-value-prog1 
-        (values (cond ((eql content-length 0) nil)
+        (values (cond ((eql content-length 0) (if textp "" nil))
                       (content-length
                        (when chunkedp
                          ;; see RFC 2616, section 4.4