anchor.diff:  
   (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)
  -    )
  +  (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))
   
   
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: ginterface.lisp,v 1.15 2006-02-26 15:30:01 espen Exp $
  
  (in-package "GLIB")
  
  
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)
  