cl-rw

commit 546217ca2ba01f96dc4bb7d88e7e47e667b61f5a
parent 55a594413ed0166f163bc437651931db5e86e739
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 13 Oct 2013 18:10:21 +0200

forgot to fix http-redirect

Diffstat:
M
ui.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ui.lisp b/ui.lisp
@@ -118,7 +118,7 @@
                                   (parse36 (subseq k 1)))))
                         (funcall dispatch kk v :arg1))))
                   (funcall dispatch aid nil :arg0)
-                  `(:redirect ,(funcall construct sid (pretty36 aid) *renv*)))
+                  (http-redirect (funcall construct sid (pretty36 aid) *renv*)))
                  (:get
                   (funcall dispatch aid nil :arg0)
                   (funcall clear)