anchor.diff:                                   (aif (post-parameter "privacy-selection")
                                      (string= "restricted" it)
                                      (getf item :privacy))
  -                                  t)))
  +                                  t))
  +                  (new-text (post-parameter "text")))
   
                (iter (for tag in (tags-from-string (post-parameter "tags")))
                      (setf tags (cons tag tags)))
  
positive.code: 
                 (cond
  
                  ((> (length (post-parameter "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")
  
negative.code:                    (see-other (post-parameter "next"))))
  
                  ((and (post-parameter "create")
                        new-text)
  
                   (if (intersection tags *top-tags* :test #'string=)
                     (progn
  