anchor.diff:        (html-template:fill-and-print-template
           #P"index.tmpl"
           (list :blog-posts
  -              (loop for blog-post in (nreverse (elephant:get-instances-by-range 'blog-post 'timestamp nil nil))
  +              (loop for blog-post in (nreverse
  +                                       (get-instances-by-range
  +                                         'blog-post 'timestamp nil nil))
                       collect (list :title (title blog-post)
                                     :body (body blog-post)
                                     :url-part (url-part blog-post))))
  
positive.code:          (close-store *elephant-store*))))
  
  #|
  
  (defun 404-dispatcher (request)
    '404-page)
  
  
negative.code:   (:metaclass persistent-metaclass))
  
  (defmethod initialize-instance :after ((obj blog-post) &key)
    "If :url-part wasn't non-nil when making the instance,
  generate it automatically."
    (cond ((eq nil (url-part obj))
           (setf (url-part obj) (make-url-part (title obj))))))
  
  