anchor.diff:    (declare (ignore type))
     (alien-type 'pointer))
   
  +(define-type-method argument-type ((type glist))
  +  'list)
  +
  +(define-type-method return-type ((type glist))
  +  'list)
  +
   (define-type-method size-of ((type glist) &key inlined)
     (assert-not-inlined type inlined)
     (size-of 'pointer))
  
positive.code:   (declare (ignore type))
    (alien-type 'pointer))
  
  (define-type-method size-of ((type gslist) &key inlined)
    (assert-not-inlined type inlined)
    (size-of 'pointer))
  
negative.code: 
  (setf *memory-allocator* #'%allocate-memory)
  (setf *memory-deallocator* #'%deallocate-memory)
  
  (defbinding (reallocate-memory "g_realloc") () pointer
    (address pointer)
    (size unsigned-long))
  
  
  ;;;; User data mechanism
  
  