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:                        (eql translated #\F12))
                    (when (key-releasep event)
                      ;; Switch keymaps.
                      (setf *current-keymap* (if (eql *current-keymap* *engb-keymap*)
                                                 *enus-keymap*
                                                 *engb-keymap*))))
                   ((and (member :meta *keyboard-modifier-state*)
                         (eql translated #\Esc))
                    (when (and (key-releasep event)
  
negative.code:     (#\Left-Control :control)
      (#\Right-Control :control)
      (#\Left-Meta :meta)
      (#\Right-Meta :shift2)
      (#\Left-Super :super)
      (#\Right-Super :super)
      (#\Left-Hyper :hyper)
  