From dda6f74b58d7d410d186f71dedefcd0747a63bf9 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 11 Dec 2020 09:58:23 -0600 Subject: support for multi-evidence --- lazybones.lisp | 3 --- 1 file changed, 3 deletions(-) (limited to 'lazybones.lisp') 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) -- cgit v1.2.3