diff options
Diffstat (limited to 'lazybones.lisp')
| -rw-r--r-- | lazybones.lisp | 3 |
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) |