anchor.diff:    (subtypep (class-name super) 'ginstance))
   
   
  -(defmethod allocate-alien-storage ((class ginstance-class))
  -  (type-create-instance (find-type-number class)))
  +; (defmethod allocate-alien-storage ((class ginstance-class))
  +;   (type-create-instance (find-type-number class)))
   
   
   ;;;; Initializing type numbers
  
positive.code: (define-foreign type-instance-size (type) int
    ((find-type-number type) type-number))
  
  (define-foreign type-create-instance (type) pointer
    ((find-type-number type) type-number))
  
  (define-foreign type-free-instance () nil
    (instance pointer))
  
negative.code:        object))
       ((or (functionp writer) (symbolp writer))
        (funcall writer value object)
        value)
       (t
        (funcall (fdefinition writer) value object)
        value))))
  	
  
  (defmethod validate-superclass
  