anchor.diff:                t)
   
                ((typep bound-function 'function-symbol)
  -              (log:debug "Key sequence ~a" (keyspecs key-stack translated-key))
  +              (log:debug "Found key binding ~a" (keyspecs key-stack translated-key))
                 (unwind-protect
                      (funcall-safely bound-function)
                   ;; We must reset the key-stack on errors or else all subsequent
  
positive.code:   (with-accessors ((key-stack key-stack)) *browser*
      (labels ((keyspecs (key &optional translated-key)
                 (if translated-key
                     (format nil "~a (translated from ~a)"
                             (keyspecs translated-key)
                             (keyspecs key))
                     (keyspecs-with-optional-keycode key))))
        (when buffer
          (setf (last-event buffer) event))
  
negative.code:                         (mapcar (lambda (key) (keymap:copy-key key :code 0))
                                  keys))))
      (if (find-if (complement #'zerop) keys :key #'keymap:key-code)
          (format nil "~s [~a]" no-code-specs (keymap:keys->keyspecs keys))
          (format nil "~s" no-code-specs))))
  
  (export-always 'dispatch-input-event)
  (defun dispatch-input-event (event buffer window printable-p)
  