anchor.diff:                         (eql translated #\F12))
                     (when (key-releasep event)
                       ;; Switch keymaps.
  -                    (setf *current-keymap* (if (eql *current-keymap* *engb-keymap*)
  -                                               *enus-keymap*
  -                                               *engb-keymap*))))
  +                    (setf *current-keymap* (progn (rotatef (car *keymap-rota*) (cdr *keymap-rota*)) (car *keymap-rota*)))))
                    ((and (member :meta *keyboard-modifier-state*)
                          (eql translated #\Esc))
                     (when (and (key-releasep event)
  
positive.code:                                                 (#\Up-Arrow . #\Up-Arrow)
                                                  (#\Left-Arrow . #\Left-Arrow)
                                                  (#\Down-Arrow . #\Down-Arrow)
                                                  (#\Right-Arrow . #\Right-Arrow))))
  
  (defvar *enus-keymap* (make-instance 'simple-keymap
                                       :name "En-US"
  
negative.code:     (#\Left-Control :control)
      (#\Right-Control :control)
      (#\Left-Meta :meta)
      (#\Right-Meta :shift2)
      (#\Left-Super :super)
      (#\Right-Super :super)
      (#\Left-Hyper :hyper)
  