anchor.diff:               (flet ((inventory-tags (&key error)
                         (enter-inventory-tags :title (s+ "Edit your " type)
                                               :action url
  -                                            :text (getf item :text)
  +                                            :text (or new-text (getf item :text))
                                               :tags (or tags (getf item :tags))
                                               :groups-selected groups-selected
                                               :restrictedp restrictedp
  
positive.code:                    (see-other (post-parameter "next"))))
  
                  ((and (post-parameter "create")
                        (post-parameter "text"))
  
                   (if (intersection tags *top-tags* :test #'string=)
                     (progn
  
negative.code: 
                 (cond
  
                  ((> (length new-text) 1000)
                   (inventory-tags :error  "Please shorten your description. Offers and Requests must be no longer than 1000 characters including line breaks."))
  
                  ((post-parameter "edit")
  