Macro Push-First

Part of:

package fset
( push-first place val &environment env )
(push-first seq val) --> (setf seq (with-first seq val))