SETF total lossage

[William G. Dubuque <WGD at MIT-MC>]

(DEFSETF MAKNUM ((() OBJECT) ADDRESS) `(SETF ,OBJECT (MUNKAM ,ADDRESS)))
will lose whenever SETF decides that object or address is complicated enough
that they should be bound to gensyms (thus producing a recursive setf call
on gensyms).