Plaster

common-lisp
(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+)))