anchor.diff:  (defun simple-inventory-entry-html (preposition type)
     (html 
       (:div :class "item"
  -      (:h4 (str (s+ "post " preposition " " type))) 
  -      (:form :method "post" :action (s+ "/" type "s/new") 
  +      (:h4 (str (s+ "post " preposition " " type)))
  +      (:form :method "post" :action (s+ "/" type "s/new")
           (:table :class "post"
             (:tr
               (:td (:textarea :cols "150" :rows "4" :name "text"))
  
positive.code: 
                    ((and (>= i start) items)
                     (str (inventory-activity-item type
                                                   (pop items) 
                                                   :show-distance t)))
                    (t
                     (when (< (user-rdist) 100)
  
negative.code:                                          (t *request-geo-index*))
                                           *latitude*
                                           *longitude*
                                         distance))
                      #'> :key #'inventory-rank))
            (items nil))
        (let ((tags (make-hash-table :test 'equalp)))
  