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.9 2001-04-29 20:07:17 espen Exp $
  +;; $Id: glib.lisp,v 1.10 2001-05-11 16:00:33 espen Exp $
   
   
   (in-package "GLIB")
  
positive.code: 
  (deftype glist (type) `(or (null (cons ,type list))))
  
  (defbinding ("g_list_append" %glist-append-unsigned) () pointer
    (glist pointer)
    (data unsigned))
  
  (defbinding ("g_list_append" %glist-append-signed) () pointer
    (glist pointer)
    (data signed))
  
  (defbinding ("g_list_append" %glist-append-sap) () pointer
    (glist pointer)
    (data pointer))
  
  
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)
  