add-support (object support)

a boolean

Note that object has been put onto support.

This function maintains the slots block-supported-by and block-support-for.