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:     (effective-virtual-slot-definition)))
  
  
  ; (define-foreign object-class-install-param () nil
  ;   (class pointer)
  ;   (id unsigned-int)
  ;   (parameter parameter))
  
  ; (define-foreign object-class-find-param-spec () parameter
  ;   (class pointer)
  ;   (name string))
  
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gobject.lisp,v 1.6 2001-04-29 20:34:18 espen Exp $
  
  (in-package "GLIB")
  
  