set-loaded-mask in bitmap%

See get-loaded-mask.

• (send a-bitmap set-loaded-mask mask) -> void
     mask : bitmap% object or #f