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: 		     ,(unreference-alien
  		       element-type '(sap-ref-sap c-vector offset))))))
  	 (deallocate-memory c-vector)))))
  
negative.code: 
  (deftype glist (type) `(or (null (cons ,type list))))
  
  (defbinding (%glist-append-unsigned "g_list_append") () pointer
    (glist pointer)
    (data unsigned))
  
  (defbinding (%glist-append-signed "g_list_append") () pointer
    (glist pointer)
    (data signed))
  
  (defbinding (%glist-append-sap "g_list_append") () pointer
    (glist pointer)
    (data pointer))
  
  