anchor.diff:  
   ;;;; Memory management
   
  -(defbinding ("g_malloc0" allocate-memory) () pointer
  +(defbinding (allocate-memory "g_malloc0") () pointer
     (size unsigned-long))
   
  -(defbinding ("g_realloc" reallocate-memory) () pointer
  +(defbinding (reallocate-memory "g_realloc") () pointer
     (address pointer)
     (size unsigned-long))
   
  -(defbinding ("g_free" deallocate-memory) () nil
  -  (address pointer))
  +;(defbinding (deallocate-memory "g_free") () nil
  +;  (address pointer))
  +(defun deallocate-memory (address)
  +  (declare (ignore address)))
   
   (defun copy-memory (from length &optional (to (allocate-memory length)))
     (kernel:system-area-copy from 0 to 0 (* 8 length))
  
positive.code: 		     ,(unreference-alien
  		       element-type '(sap-ref-sap c-vector offset))))))
  	 (deallocate-memory c-vector)))))
  
negative.code:   (unless (null-pointer-p glist)
      (sap-ref-sap glist +size-of-sap+)))
    
  (defbinding (glist-free "g_list_free") () nil
    (glist pointer))
  
  (deftype-method translate-type-spec glist (type-spec)
  