(<:li (<ucw:button :action (add-to-many-to-many slot instance new-instance)
(<:as-html "Add:"))
(<ucw:select :accessor new-instance
(<:li (<ucw:button :action (add-to-many-to-many slot instance new-instance)
(<:as-html "Add:"))
(<ucw:select :accessor new-instance