aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2020-12-11 09:58:23 -0600
committerColin Okay <okay@toyful.space>2020-12-11 09:58:23 -0600
commitdda6f74b58d7d410d186f71dedefcd0747a63bf9 (patch)
treeacc7aa3a5e1bcf87963aa302b815063b3e769b0c
parent1aad38760fc902a3913c1473f0f437cc98e53e1c (diff)
support for multi-evidence
-rw-r--r--lazybones.lisp3
1 files changed, 0 insertions, 3 deletions
diff --git a/lazybones.lisp b/lazybones.lisp
index be20847..b95b73b 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -83,7 +83,6 @@ mimetype as a string, or NIL"
definition."
(setf (getf *resp-headers* key) val))
-
(defun add-decoder (mimetype decoder)
"Adds or replaces a DECODER function for supplied MIMETYPE"
(if-let ((decoder-pair (assoc mimetype *decoders* :test #'string-equal)))
@@ -91,7 +90,6 @@ definition."
(push (cons mimetype decoder)
*decoders*)))
-
(defun decode-body (stream content-type content-length)
"Decodes the body according to the Content-Type header.
@@ -103,7 +101,6 @@ STREAM itself is returned unaltered.
(funcall (cdr decoder) stream content-type content-length)
stream))
-
(defun content-length (content)
"Utility for determining the Content-Length header for response bodies."
(cond ((consp content)