anchor.diff:                                     :selected (s+ type "s")))
   
               ((and (post-parameter "create")
  -                  (post-parameter "text")) 
  +                  (post-parameter "text"))
   
                (if (intersection tags *top-tags* :test #'string=)
                  (progn
                    (when (member id *old-inventory-index* :key #'result-id)
                      (with-mutex (*old-inventory-mutex*)
                        (asetf *old-inventory-index* (remove id it :key #'result-id))))
  -                 
  +
                    (modify-inventory-item id :text (post-parameter "text") :tags tags)
                    (see-other (or (post-parameter "next") (strcat "/" type "s/" id))))
   
  
positive.code:                               :selected (s+ type "s")))
  
        ((and (post-parameter "create")
              (post-parameter "text")) 
  
         (if (intersection tags *top-tags* :test #'string=)
           (see-other 
             (format nil (s+ "/" type "s/~A")
               (create-inventory-item :type (if (string= type "request") :request
                                                                         :offer)
                                      :text (post-parameter "text") 
                                      :tags tags)))
  
           (enter-inventory-tags :title (s+ "Preview your " type)
  
negative.code:           (:span
              (when (or base q)
                (htm
                  (:span :style "float: right;" (:a :href (str base-url)
                                                          (str (s+"show all " type "s")))))))
            (iter (for i from 0 to (+ start 20))
                  (cond
  