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:     (effective-virtual-slot-definition)))
  
  
  ; (defbinding object-class-install-param () nil
  ;   (class pointer)
  ;   (id unsigned-int)
  ;   (parameter parameter))
  
  ; (defbinding object-class-find-param-spec () parameter
  ;   (class pointer)
  ;   (name string))
  
  