- (or
- (loop
- for type-init in *type-initializers*
- when (= type-number (funcall type-init))
- do (return type-init))
- (error "Can't find init function for type number ~D" type-number)))
+ (loop
+ for type-init in *type-initializers*
+ when (= type-number (funcall type-init))
+ do (return type-init)))
+
+(defun register-type-as (type-number)
+ (or
+ (find-type-init-function type-number)
+ (find-foreign-type-name type-number)
+ (error "Unknown type-number: ~A" type-number)))