removed obsolete utility

1 files changed, 0 insertions, 11 deletions

diff --git a/lazybones.lisp b/lazybones.lisp
index 3cf3bad..c04e1e4 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -366,17 +366,6 @@ making a new one if not."
 
 ;;; utilities
 
-(defun set-response-headers (&rest headers)
-  "Sets response headers for *RESPONSE*. Handy for setting many headers at once.
-
-E.g.
-(set-response-headers 
-  :content-type \"text/html\"
-  :content-length (length html-bytes))"
-  (loop for (name value . more) on headers by #'cddr
-        do (setf (response-header name *response*) value)))
-
-
 (defun http-ok (content)
   "Content should be a string, a byte-vector, or a pathname to a local
 file.  CONTENT-TYPE should be a MIME type string."