- (let* ((class-name (or name (class-name class)))
-;; (type-number
-;; (or
-;; (find-type-number class-name)
-;; (register-type class-name
-;; (or (first gtype) (default-type-init-name class-name)))))
- )
-; (type-default-interface-ref type-number)
- )
+ (let* ((class-name (or name (class-name class)))
+ (type-number
+ (or
+ (find-type-number class-name)
+ (register-type class-name
+ (or (first gtype) (default-type-init-name class-name))))))
+ (type-default-interface-ref type-number))