anchor.diff:             (with-html
                (:p "Error deleting entry")))))))
   
  -(defun blog-login (blog &key
  -                   user
  -                   password)
  +(defun blog-login (blog &key 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:   (define-blog-handler (blog :uri "/email")
        ()
      (lambda (blog)
        (redirect (format nil "mailto:~A" (blog-owner-email blog)) :permanently t)))
    
    (define-blog-handler (blog :uri "/display")
        ((id :parameter-type 'integer))
  
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)))
  