anchor.diff:  
   (setf *memory-allocator* #'%allocate-memory)
   (setf *memory-deallocator* #'%deallocate-memory)
  +
  +(defbinding (reallocate-memory "g_realloc") () pointer
  +  (address pointer)
  +  (size unsigned-long))
  +
   
   ;;;; User data mechanism
   
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: glib.lisp,v 1.40 2007-06-15 12:25:16 espen Exp $
  
  
  (in-package "GLIB")
  
negative.code:   (declare (ignore type))
    (alien-type 'pointer))
  
  (define-type-method argument-type ((type gslist))
    'list)
  
  (define-type-method return-type ((type gslist))
    'list)
  
  (define-type-method size-of ((type gslist) &key inlined)
    (assert-not-inlined type inlined)
    (size-of 'pointer))
  