anchor.diff:  
   (defmethod initialize-instance ((object gobject) &rest initargs)
     (unless (slot-boundp object 'location)
  -    ;; Extract initargs which we should pass directly to the GObeject
  +    ;; Extract initargs which we should pass directly to the GObject
       ;; constructor
       (let* ((slotds (class-slots (class-of object)))
   	   (args (when initargs
  
positive.code: 
  (defmethod instance-finalizer ((instance gobject))
    (let ((location (proxy-location instance)))
      #'(lambda ()
  	(remove-cached-instance location)
  	(%object-unref location))))
  
  
  (defbinding (%gobject-new "g_object_new") () pointer
  
negative.code: 
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defclass gobject-class (ginstance-class)
      ((instance-slots-p :initform nil
        :documentation "Non NIL if the class has slots with instance allocation")))
  
    (defmethod validate-superclass ((class gobject-class) (super standard-class))
  ;  (subtypep (class-name super) 'gobject)
  