Function Copy-Slot-1

Part of:

package metacopy
( copy-slot-1 < copy-object > < slot-name > < original-object > < copy-htable > )