anchor.diff:    (setf 
      (slot-value object 'location)
      (%gobject-new (type-number-of object)))
  -  (call-next-method))
  +;  (funcall (proxy-class-copy (class-of object)) nil (proxy-location object))
  +  (call-next-method)
  +;  (funcall (proxy-class-free (class-of object)) nil (proxy-location object))
  +  )
   
   (defbinding (%gobject-new "g_object_new") () pointer
     (type type-number)
  
positive.code: 
  
  
  ;;;; Parameter stuff
  
  (defbinding %object-set-property () nil
    (object gobject)
  
negative.code: 	       (funcall
  		(intern-writer-function type)
  		value gvalue +gvalue-value-offset+)
  	       (%object-set-property object pname gvalue)
  	       (funcall
  		(intern-destroy-function type)
  		gvalue +gvalue-value-offset+)
  