(defmacro with-authentication (&body body) `(progn (require-authorization) ,@body))
Ah, I forget to reread my email before I click send.
It should be something like this:
(defun do-authorization () (multiple-value-bind (user password) (authorization) (unless (and (equal user "nanook") (equal password "igloo")) (require-authorization))))
(defmacro with-authentication (&body body) `(progn (do-authorization) ,@body))
(define-easy-handler (my-url-handler :uri "/my-url") () (require-authorization) (with-html (:h1 "hi"))
Similarly the above is wrong.
(define-easy-handler (my-url-handler :uri "/my-url") () (do-authorization) (with-html (:h1 "hi"))
BTW none of the code are tested, but you get the idea ...
Regards, -- Mac