Plaster
New
List
Login
common-lisp
default
anonymous
2019.07.14 15:17:48
(defmacro with-verified-session (&body body) "will 403 if session fails to verify has an implicit progn" `(if (and *session* (session-verify *request*) (not (session-too-old-p *session*))) (progn ,@body) (setf (return-code*) +http-forbidden+)))
Raw
Annotate
Repaste
Edit