anchor.diff:  (defbinding type-default-interface-ref (type) pointer
     ((find-type-number type t) type-number))
   
  -(defbinding type-default-interface-unref (type) nil
  -  ((find-type-number type t) type-number))
  +(defbinding type-default-interface-unref () nil
  +  (iface pointer))
   
   (defbinding type-default-interface-peek (type) pointer
     ((find-type-number type t) type-number))
  
positive.code: 
  (defmethod shared-initialize ((class ginterface-class) names &key name gtype)
    (declare (ignore names))
    (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)
      )
    (call-next-method))
  
  
  
negative.code: 	     (unwind-protect
  		 (%map-params array length type-number inherited-p)
  	       (deallocate-memory array))))
        (type-default-interface-unref iface))))
  
  
  (defun expand-ginterface-type (type forward-p options &rest args)
  