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: glib.lisp,v 1.7 2000-10-05 17:17:41 espen Exp $
  +;; $Id: glib.lisp,v 1.8 2001-02-11 20:21:13 espen Exp $
   
   
   (in-package "GLIB")
  +
   (use-prefix "g")
   
   
  
positive.code:   to)
  
  
  
  ;;;; Quarks
  
  (deftype quark () 'unsigned)
  
  
negative.code: (define-foreign %quark-from-string () quark
    (string string))
  
  (defvar *quark-counter* 0)
  
  (defun %quark-get-reserved ()
    ;; The string is just a dummy
    (%quark-from-string (format nil "#@$%&-quark-~D" (incf *quark-counter*))))
  
  (defvar *quark-from-object* (make-hash-table))
  (defvar *quark-to-object* (make-hash-table))
  