diff options
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) |