anchor.diff:  
   ;;;; Parameter stuff
   
  -(define-foreign %object-set-param () nil
  +(define-foreign %object-set-property () nil
     (object gobject)
     (name string)
     (value gvalue))
   
  -(define-foreign %object-get-param () nil
  +(define-foreign %object-get-property () nil
     (object gobject)
     (name string)
  -  (value gvalue :out))
  +  (value gvalue))
   
  -(define-foreign object-queue-param-changed () nil
  +(define-foreign %object-notify () nil
     (object gobject)
     (name string))
   
  +(define-foreign object-freeze-notify () nil
  +  (object gobject))
   
  -
  +(define-foreign object-thaw-notify () nil
  +  (object gobject))
   
   (define-foreign %object-set-qdata-full () nil
     (object gobject)
     (id quark)
     (data unsigned-long)
     (destroy-marshal pointer))
  +
  +
  +;;;; User data
   
   (defun (setf object-data) (data object key &key (test #'eq))
     (%object-set-qdata-full
  
positive.code: 
  
  
  
  
  
  ;;;; Methods for gobject-class
  
  (defmethod shared-initialize ((class gobject-class) names &rest initargs
  			      &key type-init name)
  
negative.code:   (defclass gobject (ginstance)
      ()
      (:metaclass ginstance-class)
      (:alien-name "GObject")))
  
  
  ;;;; Object construction
  
  (define-foreign ("g_object_new" %gobject-new) () gobject
    (type type-number)
    (nil null))
  
  
  ;;;; Reference counting for gobject
  