Plaster
New
List
Login
common-lisp
default
anonymous
2019.07.13 15:24:50
(define-easy-handler (redirect :uri "/redirect" :default-request-type :post) (pass) :request-type :post (with-output-to-string (*html-output-stream*) (if (string= *password* pass) (progn (start-session) (redirect "/submit" )) (redirect "/"))))
Raw
Annotate
Repaste
Edit