-(defmethod shared-initialize ((class ginstance-class) names &key name gtype)
- (call-next-method)
- (setf
- (slot-value class 'foreign-init)
- (or (first gtype) (default-type-init-name (or name (class-name class))))))
-
+(defmethod compute-foreign-size ((class ginstance-class))
+ (type-instance-size (find-type-number (class-name class))))