anchor.diff:                                                 (make-archives-url
                                                   blog (blog-entry-category entry))
                                                  (str (blog-entry-category entry)))))))))
  -          (:div :class "nuclblog-entry-contents"
  -                (str (markdown* (blog-entry-contents entry))))
  +          (entry-contents-html blog entry)
             (:div :class "nuclblog-entry-nav"
                   (when (hunchentoot-auth:session-realm-user-authenticated-p (blog-realm blog))
                     (htm (:a :href (make-edit-entry-url blog entry) "edit")
  
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"
  