Sets the wormhole data object in a wormhole status object
General Form: (set-wormhole-data whs data)
See wormhole. Whs should be a well-formed wormhole status;
data is arbitrary. This function returns a new status with the same
entry code as whs but with the new data. This function does not
affect state or a wormhole's persistent-whs or ephemeral-whs. It just returns
a (possibly) new status object suitable as the value of the lambda
expressions in wormhole-eval and wormhole.