anchor.diff:  (defbinding object-thaw-notify () nil
     (object gobject))
   
  +
  +;;;; User data
  +
   (defbinding %object-set-qdata-full () nil
     (object gobject)
     (id quark)
     (data unsigned-long)
     (destroy-marshal pointer))
   
  -
  -;;;; User data
  -
   (defun (setf user-data) (data object key)
  -  (%object-set-qdata-full
  -   object (quark-from-object key)
  +  (%object-set-qdata-full object (quark-intern key)
      (register-user-data data) (callback %destroy-user-data))
     data)
   
  -;; depecated
  +;; deprecated
   (defun (setf object-data) (data object key &key (test #'eq))
     (assert (eq test #'eq))
     (setf (user-data object key) data))
  
positive.code:   (id quark))
  
  (defun user-data (object key)
    (find-user-data (%object-get-qdata object (quark-from-object key))))
  
  ;; depecated
  (defun object-data (object key &key (test #'eq))
    (assert (eq test #'eq))
    (user-data object key))
  
  (defun user-data-p (object key)
    (nth-value 1 (find-user-data (%object-get-qdata object (quark-from-object key)))))
  
  
  ;;;;
  
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.29 2005-01-30 14:30:30 espen Exp $
  
  (in-package "GLIB")
  
  