(values it (slot-value it 'tag))
(let* ((tag (gensym "TAG-"))
(type (intern-c-type 'c-class-type :name name :tag tag)))
+ (setf (gethash name *module-type-map*) type)
(values type tag)))
;; If no qualifiers are wanted then we've already found or created the