anchor.diff:  
   (define-event-class pointer-event (device-event)
     ((pointer :initarg :pointer
  -	    :reader pointer-event-pointer)
  +            :reader pointer-event-pointer)
      (x :reader pointer-event-native-x)
      (y :reader pointer-event-native-y)
      (graft-x :reader pointer-event-native-graft-x)
  
positive.code: 
  (define-event-class keyboard-event (device-event)
    ((key-name :initarg :key-name
  	     :reader keyboard-event-key-name)
     (key-character :initarg :key-character :reader keyboard-event-character
  		  :initform nil)))
  
  (define-event-class key-press-event (keyboard-event)
    ())
  
negative.code: (defclass standard-event (event)
    ((timestamp :initarg :timestamp
                :initform nil
                :reader event-timestamp)
     ;; This slot is pretty much required in order to call handle-event. Some
     ;; events have something other than a sheet in this slot, which is gross.
     (sheet :initarg :sheet
            :reader event-sheet)))
  
  (defmethod initialize-instance :after ((event standard-event) &rest initargs)
    (declare (ignore initargs))
  