anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: glib.lisp,v 1.36 2006-02-26 15:30:01 espen Exp $
  +;; $Id: glib.lisp,v 1.37 2006-04-25 21:51:32 espen Exp $
   
   
   (in-package "GLIB")
  
positive.code: 				 (package-name (symbol-package object)) 
  				 object)))))
  
  (defbinding quark-to-string () (copy-of string)
    (quark quark))
  
  
  
negative.code: 
  ;;;; Memory management
  
  (defbinding (%allocate-memory "g_malloc0") () pointer
    (size unsigned-long))
  
  (defbinding (%deallocate-memory "g_free") () nil
    (address pointer))
  
  (setf
   (symbol-function 'allocate-memory) #'%allocate-memory
   (symbol-function 'deallocate-memory) #'%deallocate-memory)
  
  
  ;;;; User data mechanism
  
  (defvar *user-data* (make-hash-table))
  (defvar *user-data-count* 0)
  