anchor.diff:            (let ((descs (lisp-raw (json:encode-json-to-string
                                     (format-flag-descriptions)))))
               (psx (:div
  -                  (:h5 "Flag Info:")
  +                  (:h5 :key 1 "Flag Info:")
                     (getprop descs (prop formdata flag))))))
   
         (def-component text-sample-core
  
positive.code:                  (lambda (child)
                     (psx
                      (:opform-item
                       :description (@ child props description)
                       :name (@ child props name)
                       child
                       (case (@ child props name)
                         ("target"
                          (psx (:message :message (@ state message))))
                         ("excerpt"
                          (psx (:text-sample
                                :... props)))
                         ("flag"
                          (psx
                           (:flag-description :formdata (@ props formdata)))))))))
                  (:tr :key "user1"
                   (:td
                    (:input :type "button" :value "Post"
                            :on-click (@ this post-form)))))))))
          get-initial-state
          (lambda ()
            (create :message "")))
  
negative.code:                                 (@ this load-from-server) 2000 url)))))))))
  
        (def-component opform-item
            (let ((count 0)) 
              (psx
               (:tr :key (prop keydata)
                    (:td :key "m1"
                         (or (prop description) (prop name)))
                    (children-map (prop children)
                                  (lambda (child)
                                    (psx (:td :key (incf count) child))))))))
  
        (def-component custom-opform-layout
            (let ((state (@ this :state))
                  (props (@ this props))
                  (count 0))
              (psx
               (:form
                (:table
  