anchor.diff:  ;;;; User data mechanism
   
   (internal *user-data* *user-data-count*)
  -
  -(declaim (fixnum *user-data-count*))
   
   (defvar *user-data* (make-hash-table))
   (defvar *user-data-count* 0)
  
positive.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: glib.lisp,v 1.23 2005-01-03 16:38:57 espen Exp $
  
  
  (in-package "GLIB")
  
negative.code: 
  ;;;; Quarks
  
  (deftype quark () 'unsigned)
  
  (defbinding %quark-from-string () quark
    (string string))
  
  (defun quark-intern (object)
    (etypecase object
      (quark object)
      (string (%quark-from-string object))
      (symbol (%quark-from-string (format nil "clg-~A:~A" 
  				 (package-name (symbol-package object)) 
  				 object)))))
  
  (defbinding quark-to-string () (copy-of string)
    (quark quark))
  
  
  ;;;; Linked list (GList)
  