Macro Adjoinf

Part of:

package fset
( adjoinf place &rest item-or-tuple &environment env )
(adjoinf coll . args) --> (setf coll (with coll . args))