anchor.diff:    (:alien-name "GdkDragContext"))
   
   
  +(defclass device (alien-structure)
  +  ()
  +  (:metaclass alien-class))
  +
   (defclass event (alien-structure)
  -  ((type
  -    :allocation :alien
  -;    :accessor event-type
  -    :type event-type)
  -   (window
  -    :allocation :alien
  +  ((window
  +    :allocation :alien
  +    :offset #.(size-of 'pointer)
       :accessor event-window
       :initarg :window
       :type window)
  
positive.code:     :allocation :alien
      :accessor event-send-event
      :initarg :send-event
      :type (signed 8)))
    (:metaclass alien-class)
    (:alien-name "GdkEvent"))
  
  
  (defclass expose-event (event)
    ()
    (:metaclass alien-class))
  
  
  (defclass delete-event (event)
    ()
    (:metaclass alien-class))
  
  
  
  
  ;(define-boxed device-key)
  ;(define-boxed device-info)
  ;(define-boxed time-coord)
  ;(define-boxed ic)
  ;(define-boxed ic-attr)
  
  
negative.code: ;; Common Lisp bindings for GTK+ v2.0
  ;; Copyright (C) 1999-2000 Espen S. Johnsen <esj@stud.cs.uit.no>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  