Function Copy-Set-Slot-1

Part of:

package metacopy
( copy-set-slot-1 < copy-object > < slot-name > < value > )