anchor.diff:                      user
                       password)
     (hunchentoot-auth:authorized-page
  -   ((blog-realm blog) user password
  +   ((blog-realm blog)
       :ssl-port (blog-ssl-port blog)
       :login-page-function (lambda ()
                              (blog-login-page blog user password)))
  
positive.code:                  user
                   password)
    (hunchentoot-auth:authorized-page
       ((blog-realm blog) user password
        :ssl-port (blog-ssl-port blog)
        :login-page-function (lambda ()
                               (blog-login-page blog user password)))
  
negative.code:   (define-blog-handler (blog :uri "/email")
        ()
      (lambda (blog)
        (redirect (format nil "mailto:~A" (blog-owner-email blog)))))
    
    (define-blog-handler (blog :uri "/display")
        ((id :parameter-type 'integer))
  