anchor.diff:  ;;; Should this go in sheets.lisp?  That comes before events and ports...
   
   (defmethod handle-event :before ((sheet mirrored-sheet-mixin)
  -				 (event pointer-enter-event))
  +                                 (event pointer-enter-event))
     (setf (port-pointer-sheet (port sheet)) sheet))
   
   (defmethod handle-event :before ((sheet mirrored-sheet-mixin)
  -				 (event pointer-exit-event))
  +                                 (event pointer-exit-event))
     (with-accessors ((port-pointer-sheet port-pointer-sheet))
         (port sheet)
       (when (eq port-pointer-sheet sheet)
  
positive.code: 
  ;;; XXX perhaps this should be in the backend somewhere?
  (defconstant +name-to-char+ '((:newline . #\newline)
  			      (:linefeed . #\linefeed)
  			      (:return . #\return)
  			      (:tab . #\tab)
  			      (:backspace . #\backspace)
  			      (:page . #\page)
  			      (:rubout . #\rubout)))
  
  (defun realize-gesture-spec (type gesture-spec)
    ;; Some CLIM code (scigraph) assumes that gesture-spec can be a symbol.
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000, 2014 by
  ;;;           Robert Strandh (robert.strandh@gmail.com)
  ;;;  (c) copyright 2001,2002 by Tim Moore (moore@bricoworks.com)
  
  