(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 "/"))))
 
 
 
 
 ; file: /tmp/slimejMDtsA
; in:
;      DEFINE-EASY-HANDLER (REDIRECT :URI "/redirect" :DEFAULT-REQUEST-TYPE :POST)
;     (HUNCHENTOOT:REDIRECT "/submit")
; 
; caught WARNING:
;   The function has an odd number of arguments in the keyword portion.

;     (HUNCHENTOOT:REDIRECT "/")
; 
; caught WARNING:
;   The function has an odd number of arguments in the keyword portion.
; 
; compilation unit finished
;   caught 2 WARNING conditions