Macro With-Slot-Copying

Part of:

package metacopy
( with-slot-copying (copy-object copy-htable &optional (original-object 'self)) &body < body > )