(string-append (symbol->string where) "-doc")))
(type (object-property sym type?-name))
(typename (type-name type))
(desc (object-property sym doc-name))
(string-append (symbol->string where) "-doc")))
(type (object-property sym type?-name))
(typename (type-name type))
(desc (object-property sym doc-name))