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:            (with-html
               (:p "Error deleting entry")))))))
  
  (defun blog-login (blog &key
                     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:                     user
                      password)
    (hunchentoot-auth:authorized-page
     ((blog-realm blog)
      :ssl-port (blog-ssl-port blog)
      :login-page-function (lambda ()
                             (blog-login-page blog user password)))
  