From b7c6f7e5f5397026a6ecc1ffc2aa7d0b82d58816 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 14 Dec 2020 08:54:22 -0600
Subject: added http-redirect

---
 lazybones.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lazybones.lisp')

diff --git a/lazybones.lisp b/lazybones.lisp
index b95b73b..855f2d1 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -148,6 +148,11 @@ where #HANDERL123 is a block label unique to the handler.
                *resp-headers*)
         content))
 
+(defun http-redirect (location)
+  (list 303 (list* :location location
+                   *resp-headers*)
+        nil))
+
 (defun serve-directory (root-path root-dir &key headers cache-p (filter #'identity))
   "Adds handlers for every file in the directory tree with the root ROOT-DIR.
 
-- 
cgit v1.2.3