anchor.diff:    (define-blog-handler (blog :uri "/email")
         ()
       (lambda (blog)
  -      (redirect (format nil "mailto:~A" (blog-owner-email blog)) :permanently t)))
  +      (redirect (format nil "mailto:~A" (blog-owner-email blog)))))
     
     (define-blog-handler (blog :uri "/display")
         ((id :parameter-type 'integer))
  
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)))
  