Function: shared-initialize

Set slots of OBJ with SLOTS which is a list of name/value pairs.
Called from the constructor routine.