anchor.diff:              ,@body)
              (t (require-authorization "blog")))))
   
  +(defun view-page-url-of (url-part)
  +  (concatenate 'string "/view/?" url-part))
  +
   (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*))))
  +          (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)))
  
positive.code:     (delete-if #'(lambda (x) (not (or (alphanumericp x) (char= #\- x))))
                 (substitute #\- #\Space title))))
  
  ; Container for all our blog post
  #|
  (defun init-posts ()
    (progn
      (insert-item
        (make-instance
          'blog-post
          :title "Hello blog world"
          :body "First post!")
        *blog-posts*)
      (insert-item
        (make-instance
          'blog-post
          :title "This is fun"
          :body "common lisp is easy!")
        *blog-posts*)
      ))
  |#
  (defun dump-all-post ()
    (loop for blog-post in (nreverse (get-instances-by-range
                                       'blog-post 'timestamp nil nil))
  
negative.code:       (html-template:fill-and-print-template
          #P"index.tmpl"
          (list :blog-posts
                (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))))
  