anchor.diff:    (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))
  +       for file-path = (rel-path (repo *config*) path)
  +       do (update-content status file-path))
       (update-content-metadata)
       (do-subclasses (itype index)
         ;; Discover's before method will delete the possibly outdated indexes.
  
positive.code:                           ;; Private
                            #:all-subclasses
                            #:do-subclasses
                            #:construct
                            #:rel-path
                            #:update-content-metadata)
    (:export #:enable))
  
  
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
  