anchor.diff:  
         (def-component opform-item
             (psx
  -           (:tr
  +           (:tr :key (unique-id)
               (:td (or (prop description) (prop name)))
               (children-map (prop children)
                             (lambda (child)
  
positive.code: 
  (defun format-flags ()
    (gadgets:collecting
        (gadgets:collect (cons nil "--Choose a Flag--"))
      (loop for cat in *flag-categories*
         for flags in *flag-labels*
         do (dolist (flag flags)
              (let ((flagstring (format nil "~a: ~a" cat flag)))
                (gadgets:collect (cons flagstring flagstring)))))))
  
  (defun format-flag-descriptions ()
    (cl-hash-util:collecting-hash-table (:mode :replace)
      (loop for cat in *flag-categories*
         for descs in *flag-types-source*
         for flags in *flag-labels*
         do (loop for desc in descs
               for flag in flags
               do (cl-hash-util:collect (format nil "~a: ~a" cat flag) desc)))))
  
  
negative.code:                        ("flag"
                          (psx
                           (:flag-description :formdata (@ props formdata)))))))))
                  (:tr :key "user1"
                   (:td
                    (:input :type "button" :value "Post"
                            :on-click (@ this post-form)))))))))
  