diff options
author | Coin Okay <cbeok@protonmail.com> | 2020-04-22 16:21:22 -0500 |
---|---|---|
committer | Coin Okay <cbeok@protonmail.com> | 2020-04-22 16:21:22 -0500 |
commit | 181b3a713ffb3cbae7724a6ab0b4a1f94f6653dd (patch) | |
tree | 582a98264270eccd49a6d359db9fbe5a25daee46 /lazybones.lisp | |
parent | b8d69fcb7a156de7146be27d52066fc593a32628 (diff) |
hack to send binary data in http response
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index ade6c1f..8c0d1b4 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -79,6 +79,8 @@ CONTENT-TYPE is a string, a mimetype. CONTENT is a list of strings. It can be other stuff but CLACK has abysmal documentation." + (when (typep (car content) '(simple-array (unsigned-byte 8))) + (setq content (car content))) (list 200 (list* :content-type content-type :content-length (content-length content) |