define slot-value* [macro]
define function designator types, COMPUTE-FUNCTION; add documentation string to WITH-SAFE-FREFS
add [macro] WHEN-SLOT-INIT
WHEN-SLOT-INIT - update docstring; specify CONS tyep in FIND