anchor.diff:  ;;;# Site Generation
   (defun %generate-site ()
     "Generate all dirty content for the site.  Assumes an existing database connection."
  +
     (let ((dirty-posts (%dirty-posts))
   	(index-page (index-page))
   	(atom-feed (atom-feed)))
  
positive.code: 	(setf (dirty prior) t))
        (when next
  	(setf (dirty next) t)))))
  
  ;;; Publish a draft by copying it to the published path, adding the
  ;;; "post-when" element.  This ensures that all meta-data is in the
  
negative.code: 	  (when (dirty atom-feed)
  	    (generate-page atom-feed :collection recent-posts))))))
  
  (defun generate-site (&key all)
    "Generate all dirty content for the site. Creates a database connection.  When
  passed :ALL, will mark everything as dirty and regenerate (useful if you change
  the templates)."
    (with-open-store ()
      (when all
        (%mark-all-dirty))
      (%generate-site)
      (list (url-for (index-page))
  	  (path-for (index-page)))))
  