anchor.diff:           (close-store *elephant-store*))))
   
   #|
  -
   (defun 404-dispatcher (request)
     '404-page)
   
  
positive.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
  
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))))))
  
  