Bug-fix for http-request
Wed Jan 7 12:44:00 PST 2009 kzar@kzar.co.uk
* Bug-fix for http-request
diff -rN -u old-cl-couch/client/http-request.lisp new-cl-couch/client/http-request.lisp
--- old-cl-couch/client/http-request.lisp 2014-07-28 11:33:31.000000000 -0700
+++ new-cl-couch/client/http-request.lisp 2014-07-28 11:33:31.000000000 -0700
@@ -13,11 +13,11 @@
(drakma:http-request
uri
:content
- (lambda (s) (when content
- (trivial-utf-8:write-utf-8-bytes (if (string= content-type +json-content-type+)
- (json content)
- content) s)))
- ; (lambda (s) (json-stream content s)) content
+ (when content
+ (lambda (s)
+ (trivial-utf-8:write-utf-8-bytes (if (string= content-type +json-content-type+)
+ (json content)
+ content) s)))
:force-binary nil
:content-type content-type
:method method