Extracted a function for creating a writer function given the name of a slot.
Extracted a function for creating a writer function given the name of a slot.

clasp-developers/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL