anchor.diff:  
   (in-package :kindista)
   
  -(defun migrate-to-new-inventory-data-structure ()
  +(defun mark-recent-inventory-active ()
     (dolist (id (hash-table-keys *db*))
  -    (let ((type (db id :type)))
  -      (when (or (eql type :event)
  -                (eql type :request)
  -                (eql type :offer))
  +    (let* ((item (db id))
  +           (type (getf item :type)))
  +      (when (and (or (eql type :event)
  +                     (eql type :request)
  +                     (eql type :offer))
  +                 (> (getf item :created) 3610734290))
            (modify-db id :active t)))))
   
   (defun new-pending-offer-notice-handler ()
  
positive.code:                               :id id
                                :type type
                                :people (list by)
                                :privacy (getf data :privacy)
                                :time (or (getf data :edited) (getf data :created))
                                :tags (getf data :tags)))
           (locationp (and (result-latitude result)
  
negative.code: 
  (defun create-inventory-item (&key type (by *userid*) title details tags privacy)
    (insert-db (list :type type
                     :active t
                     :by by
                     :privacy privacy ;a list of groups who can see the item
                     :title title
  