`(progn
(setf (gethash ,name *registered-types*) (make-object-type :name ,name :class ',class :parent ,parent :interfaces ',interfaces :properties ',properties))
(at-init
`(progn
(setf (gethash ,name *registered-types*) (make-object-type :name ,name :class ',class :parent ,parent :interfaces ',interfaces :properties ',properties))
(at-init
(with-foreign-object (query 'g-type-query)
(g-type-query (g-type-from-name ,parent) query)
(with-foreign-slots ((class-size instance-size) query g-type-query)
(with-foreign-object (query 'g-type-query)
(g-type-query (g-type-from-name ,parent) query)
(with-foreign-slots ((class-size instance-size) query g-type-query)