anchor.diff:    (unless (null-pointer-p glist)
       (sap-ref-sap glist +size-of-sap+)))
     
  -(defbinding ("g_list_free" glist-free) () nil
  +(defbinding (glist-free "g_list_free") () nil
     (glist pointer))
   
   (deftype-method translate-type-spec glist (type-spec)
  
positive.code: 
  ;;;; Memory management
  
  (defbinding ("g_malloc0" allocate-memory) () pointer
    (size unsigned-long))
  
  (defbinding ("g_realloc" reallocate-memory) () pointer
    (address pointer)
    (size unsigned-long))
  
  (defbinding ("g_free" deallocate-memory) () nil
    (address pointer))
  
  (defun copy-memory (from length &optional (to (allocate-memory length)))
    (kernel:system-area-copy from 0 to 0 (* 8 length))
  
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: glib.lisp,v 1.10 2001-05-11 16:00:33 espen Exp $
  
  
  (in-package "GLIB")
  