HTTP: use acons instead of append

jonatack · Aug 31, 2019 · 2cdad8e · 2cdad8e
1 parent 344e8cf
commit 2cdad8e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/http.lisp b/src/http.lisp
@@ -56,7 +56,7 @@
   (let* ((path    (concatenate 'string +api-private-path+ method))
          (uri     (make-uri :scheme scheme :host host :path path))
          (nonce   (generate-kraken-nonce))
-         (data    (append params `(("nonce" . ,nonce))))
+         (data    (acons "nonce" nonce params))
          (headers (post-http-headers path nonce data key secret)))
     (post uri :headers headers :content data :verbose verbose)))