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 | |
| parent | b8d69fcb7a156de7146be27d52066fc593a32628 (diff) | |
hack to send binary data in http response
| -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) |