anchor.diff:  (defclass standard-event (event)
     ((timestamp :initarg :timestamp
                 :initform nil
  -	      :reader event-timestamp)
  +              :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)))
  +          :reader event-sheet)))
   
   (defmethod initialize-instance :after ((event standard-event) &rest initargs)
     (declare (ignore initargs))
  
positive.code: 
  (define-event-class window-event (standard-event)
    ((region :initarg :region
  	   :reader window-event-native-region)))
  
  (defmethod window-event-region ((event window-event))
    (untransform-region (sheet-native-transformation (event-sheet event))
  
negative.code:                         (:right      . +pointer-right-button+)
                          (:wheel-up   . +pointer-wheel-up+)
                          (:wheel-down . +pointer-wheel-down+)))
          (modifier-names '((:shift . +shift-key+)
                            (:control . +control-key+)
                            (:meta . +meta-key+)
                            (:super . +super-key+)
                            (:hyper . +hyper-key+)))
          (b (gensym))
          (m (gensym)))
      (labels ((do-substitutes (c)
                 (cond
                   ((null c)
                    nil)
                   ((consp c)
                    (cons (do-substitutes (car c)) (do-substitutes (cdr c))))
                   ((assoc c button-names)
                    (list 'check-button (cdr (assoc c button-names))))
                   ((assoc c modifier-names)
                    (list 'check-modifier (cdr (assoc c modifier-names))))
                   (t
                    c))))
        `(flet ((check-button (,b) (= ,button ,b))
                (check-modifier (,m) (not (zerop (logand ,m ,modifier-state)))))
           (and ,@(do-substitutes clauses))))))
  
  ;; Key names are a symbol whose value is port-specific. Key names
  ;; corresponding to the set of standard characters (such as the
  