anchor.diff:                            ;; Private
                             #:all-subclasses
                             #:do-subclasses
  +                          #:read-content
                             #:construct
                             #:rel-path
  +                          #:repo
                             #:update-content-metadata)
     (:export #:enable))
   
  
positive.code:   (let ((db-file (rel-path (user-homedir-pathname) ".coleslaw.db")))
      (setf coleslaw::*site* (cl-store:restore db-file))
      (loop for (status path) in (get-updated-files)
         do (update-content status path))
      (update-content-metadata)
      (do-subclasses (itype index)
        ;; Discover's before method will delete the possibly outdated indexes.
  
negative.code: (defpackage :coleslaw-incremental
    (:use :cl)
    (:import-from :alexandria #:when-let)
    (:import-from :coleslaw #:*config*
                            #:content
                            #:index
                            #:discover
                            #:get-updated-files
                            #:find-content-by-path
  