From 181b3a713ffb3cbae7724a6ab0b4a1f94f6653dd Mon Sep 17 00:00:00 2001
From: Coin Okay <cbeok@protonmail.com>
Date: Wed, 22 Apr 2020 16:21:22 -0500
Subject: hack to send binary data in http response

---
 lazybones.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lazybones.lisp')

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)
-- 
cgit v1.2.3