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:             ,@body)
             (t (require-authorization "blog")))))
  
  (defun view-blog-post-page ()
    (generate-blog-post-page #P"post.tmpl"))
  
  (defun view-page-url-of (url-part)
    (concatenate 'string "/view/?" url-part))
  
  (defun save-blog-post ()
    "Read POST data and modify blog post"
    (let ((blog-post
            (get-instance-by-value 'blog-post
                                   'url-part (hunchentoot:query-string*))))
      (setf (title blog-post) (hunchentoot:post-parameter "title"))
      (setf (body blog-post) (hunchentoot:post-parameter "body"))
      (setf (url-part blog-post) (make-url-part (title blog-post)))
  
negative.code:       (list (create-regex-dispatcher "^/$" 'generate-index-page)
              (create-regex-dispatcher "^/view/$" 'view-blog-post-page)
              (create-regex-dispatcher "^/edit/$" 'edit-blog-post)
              (create-regex-dispatcher "^/create/$" 'create-blog-post)))
  
  (defun start-blog ()
    ; Open the store where our data is stored
  