anchor.diff:    (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))
  
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: 
  (setf *memory-allocator* #'%allocate-memory)
  (setf *memory-deallocator* #'%deallocate-memory)
  
  (defbinding (reallocate-memory "g_realloc") () pointer
    (address pointer)
    (size unsigned-long))
  
  
  ;;;; User data mechanism
  
  