anchor.diff:  ;; 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.3 2000-11-09 20:29:19 espen Exp $
  +;; $Id: gobject.lisp,v 1.4 2001-01-28 14:17:12 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: ;   (class pointer)
  ;   (name string))
  
  
negative.code: 
  ;;;; Parameter stuff
  
  (define-foreign %object-set-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (define-foreign %object-get-property () nil
    (object gobject)
    (name string)
    (value gvalue))
  
  (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
  