X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1d8cc67a3f4ded443f5efc673a616883cbae9c50..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/c-types-class-impl.lisp?ds=sidebyside

diff --git a/src/c-types-class-impl.lisp b/src/c-types-class-impl.lisp
index 34c7eeb..36e9c50 100644
--- a/src/c-types-class-impl.lisp
+++ b/src/c-types-class-impl.lisp
@@ -91,6 +91,7 @@
 	   (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