anchor.diff:  		  collect line)))
        :format :html
        :stream str)))
  +
  +(defmethod entry-contents-html (blog entry)
  +  (with-html
  +    (:div :class "nuclblog-entry-contents"
  +	(str (markdown* (blog-entry-contents entry))))))
   
   (defun entry-html (blog entry)
     "Outputs html for a blog entry."
  
positive.code: (defmethod check-password ((blog blog) user password)
    (hunchentoot-auth:check-password (blog-realm blog) user password))
  
  (defun blog-main (blog)
    (with-blog-page
          blog
          (blog-title blog)
      (loop for entry in (sorted-blog-entries blog)
         for i below 10
         do (entry-html blog entry))))
  
  (defun blog-status (blog)
    (with-blog-page
  
negative.code:                               " revised at: "
                                (str (hunchentoot::rfc-1123-date
                                      (blog-entry-revised-time entry)))))))
                  (let ((user (blog-entry-user entry)))
                    (when user
                      (htm (:div :class "nuclblog-entry-user"
  