added http-redirect

2 files changed, 6 insertions, 0 deletions

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.
 
diff --git a/package.lisp b/package.lisp
index 58f221e..3cefcea 100644
--- a/package.lisp
+++ b/package.lisp
@@ -25,6 +25,7 @@
    #:defroute
    #:http-err
    #:http-ok
+   #:http-redirect
    #:reload
    #:start
    #:stop