((value string) (type (eql :id)) (wanted (eql :type)))
(or (and (boundp '*module-type-map*)
(gethash value *module-type-map*))
((value string) (type (eql :id)) (wanted (eql :type)))
(or (and (boundp '*module-type-map*)
(gethash value *module-type-map*))