anchor.diff:  (defclass delete-event (event)
     ()
     (:metaclass event-class)
  -  (:type :delete))
  +  (:event-type :delete))
   
   
   (defclass destroy-event (event)
     ()
     (:metaclass event-class)
  -  (:type :destroy))
  +  (:event-type :destroy))
   
   (defclass expose-event (event)
     ((x
  
positive.code: ;; Common Lisp bindings for GTK+ v2.x
  ;; Copyright 1999-2005 Espen S. Johnsen <espen@users.sf.net>
  ;;
  ;; Permission is hereby granted, free of charge, to any person obtaining
  ;; a copy of this software and associated documentation files (the
  
negative.code:     :initarg :new-window-state
      :type window-state))
    (:metaclass event-class)
    (:event-type :window-state))
    
  (defclass owner-change-event (event)
    ()
    (:metaclass event-class)
    (:event-type :owner-change))
  
  