anchor.diff:  
   (defun format-flags ()
     (gadgets:collecting
  -      (gadgets:collect (cons nil "--Choose a Flag--"))
  +      (gadgets:collect (list 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)))))))
  +              (gadgets:collect (list 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
  +       do (loop for (k desc) on descs by #'cddr
                for flag in flags
                do (cl-hash-util:collect (format nil "~a: ~a" cat flag) desc)))))
   
  
positive.code:                            :height "15em" :width "40em" :cursor "text")
              :on-mouse-up (@ this selection-change)
              :on-key-press (@ this selection-change)
              (prop text)))
          selection-change
          (lambda (ev)
            (say ev)))
  
negative.code:                        ("flag"
                          (psx
                           (:flag-description :formdata (@ props formdata)))))))))
                  (:tr :key "user1"
                   (:td
                    (:input :type "button" :value "Post"
                            :on-click (@ this post-form)))))))))
  