anchor.diff:  (defmethod validate-superclass ((class gobject-class)
   				(super pcl::standard-class))
     (subtypep (class-name super) 'gobject))
  -
  -
  -;;;;
  -
  -; (defmacro defclass-by-query (name)
  -;   (destructuring-bind (lisp-name alien-name) name
       
positive.code:    (register-user-data data) *destroy-notify*)
    data)
  
  (define-foreign %object-get-qdata () unsigned-long
    (object gobject)		 
    (id quark))
  
  
negative.code:    (%gobject-new (type-number-of object)))
    (call-next-method))
  
  (defbinding ("g_object_new" %gobject-new) () gobject
    (type type-number)
    (nil null))
  
  
  ;;;; Parameter stuff
  
  (defbinding %object-set-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (defbinding %object-get-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (defbinding %object-notify () nil
    (object gobject)
    (name string))
  
  (defbinding object-freeze-notify () nil
    (object gobject))
  
  (defbinding object-thaw-notify () nil
    (object gobject))
  
  (defbinding %object-set-qdata-full () nil
    (object gobject)
    (id quark)
    (data unsigned-long)
  