Function Make-Slot-Writer

Part of:

package weblocks
( make-slot-writer < slot-name > < slot-reader > )
Returns a function that accepts a value and object and stores the
value transformed by 'slot-reader' in the object's 'slot-name'. This
is useful when declaring writers in the UI that should record the
object ID instead of the object itself.