anchor.diff:                                                  (#\Up-Arrow . #\Up-Arrow)
                                                   (#\Left-Arrow . #\Left-Arrow)
                                                   (#\Down-Arrow . #\Down-Arrow)
  -                                                (#\Right-Arrow . #\Right-Arrow))))
  +                                                (#\Right-Arrow . #\Right-Arrow))
  +				     :shifted2 '((#\4 . #\€)
  +						 (#\A . #\á)
  +						 (#\E . #\é)
  +						 (#\I . #\í)
  +						 (#\U . #\ú))))
   
   (defvar *enus-keymap* (make-instance 'simple-keymap
                                        :name "En-US"
  
positive.code: (defclass simple-keymap ()
    ((%name :initarg :name :reader name)
     (%unshifted :initarg :unshifted :reader keymap-unshifted-map)
     (%shifted :initarg :shifted :reader keymap-shifted-map)))
  
  (defmethod print-object ((obj simple-keymap) stream)
    (print-unreadable-object (obj stream :type t :identity t)
      (format stream "~A" (name obj))))
  
  (defvar *engb-keymap* (make-instance 'simple-keymap
                                       :name "En-GB"
  
negative.code:     (#\Left-Control :control)
      (#\Right-Control :control)
      (#\Left-Meta :meta)
      (#\Right-Meta :shift2)
      (#\Left-Super :super)
      (#\Right-Super :super)
      (#\Left-Hyper :hyper)
  