Hi everybody,<div><br><div><div>I&#39;m trying to POST some JSON data to a web service: </div><div><br></div><div>        (ql:quickload :st-json)</div><div>        (ql:quickload :cl-json)</div><div>        (ql:quickload :drakma)</div>
<div><br></div><div>        (defvar *rc* (merge-pathnames (user-homedir-pathname) &quot;.apirc&quot;))</div><div><br></div><div>        (defvar *user*</div><div>          (with-open-file (s *rc*)</div><div>            (st-json:read-json s)))</div>
<div><br></div><div>        (defvar api-url (st-json:getjso &quot;url&quot; *user*))</div><div>        (defvar api-key (st-json:getjso &quot;key&quot; *user*))</div><div>        (defvar api-email (st-json:getjso &quot;email&quot; *user*))</div>
<div><br></div><div>        (setf drakma:*header-stream* *standard-output*)</div><div><br></div><div>        (defvar *req* &#39;((&quot;dataset&quot; . &quot;tigge&quot;)</div><div>                  (&quot;step&quot;    . &quot;24&quot;)</div>
<div>                  (&quot;date&quot;    . &quot;20071001&quot;)</div><div>                  (&quot;time&quot;    . &quot;00&quot;)</div><div>                  (&quot;origin&quot;  . &quot;all&quot;)))</div><div><br></div>
<div>        (format t &quot;json:~S~%&quot; (json:encode-json-to-string *req*))</div><div><br></div><div>        (defun retrieve (api request)</div><div>          (let* ((cookie-jar (make-instance &#39;drakma:cookie-jar))</div>
<div>                 (extra-headers (list (cons &quot;From&quot; api-email)</div><div>                                      (cons &quot;X-API-KEY&quot; api-key)))</div><div>                 (url (concatenate &#39;string api-url api &quot;/requests&quot;))</div>
<div>                 (stream (drakma:http-request url</div><div>                               :additional-headers extra-headers</div><div>                               :accept &quot;application/json&quot;</div><div>                               :method :post</div>
<div>                               :content-type &quot;application/json&quot;</div><div>                               :external-format-out :utf-8</div><div>                               :external-format-in :utf-8</div>
<div>                               :redirect 100</div><div>                               :cookie-jar cookie-jar</div><div>                               :content (json:encode-json-to-string request)</div><div>                               :want-stream t)))</div>
<div>              (st-json:read-json stream)))</div><div><br></div><div>     (retrieve &quot;/datasets/tigge&quot; *req*)</div><div><br></div><div>Unfortunately, I get an error, although the data seems to be encoded OK to JSON and the headers generated by drakma too, I think. Apparently something is wrong with the :content (the list of integers in the errors message is just the list of ASCII codes of the JSON encoded data).</div>
<div><br></div><div>    json:&quot;{\&quot;dataset\&quot;:\&quot;tigge\&quot;,\&quot;step\&quot;:\&quot;24\&quot;,\&quot;number\&quot;:\&quot;all\&quot;,\&quot;levtype\&quot;:\&quot;sl\&quot;,\&quot;date\&quot;:\&quot;20071001\&quot;,\&quot;time\&quot;:\&quot;00\&quot;,\&quot;origin\&quot;:\&quot;all\&quot;,\&quot;type\&quot;:\&quot;pf\&quot;,\&quot;param\&quot;:\&quot;tp\&quot;,\&quot;area\&quot;:\&quot;70\\/-130\\/30\\/-60\&quot;,\&quot;grid\&quot;:\&quot;2\\/2\&quot;,\&quot;target\&quot;:\&quot;data.grib\&quot;}&quot;</div>
<div><br></div><div>    POST /v1/datasets/tigge/requests HTTP/1.1</div><div>    Host: <a href="http://api.service.int">api.service.int</a></div><div>    User-Agent: Drakma/1.3.0 (SBCL 1.1.5; Darwin; 12.2.0; <a href="http://weitz.de/drakma/">http://weitz.de/drakma/</a>)</div>
<div>    Accept: application/json</div><div>    Connection: close</div><div>    From: <a href="mailto:me@gmail.com">me@gmail.com</a></div><div>    X-API-KEY: 19a0edb6d8d8dda1e6a3b21223e4f86a</div><div>    Content-Type: application/json</div>
<div>    Content-Length: 193</div><div><br></div><div><br></div><div>    debugger invoked on a SIMPLE-TYPE-ERROR:</div><div>      The value of CL+SSL::THING is #(123 34 100 97 116 97 115 101 116 34 58 34</div><div>                                  ...), which is not of type (SIMPLE-ARRAY</div>
<div>                                                              (UNSIGNED-BYTE 8)</div><div>                                                              (*)).</div><div><br></div><div>Any idea what&#39;s wrong with this code? Many thanks in advance.</div>
<div><br></div><div>Best regards,</div></div></div><div>Piotr</div>