anchor.diff:  (defun meta-bit-p (modifiers)
     (/= 0 (logand modifiers sys:gesture-spec-meta-bit)))
   
  -(defun gesture-spec-to-key (self gesture-spec)
  +(defun gesture-spec-to-key (gesture-spec)
     (when (sys:gesture-spec-p gesture-spec)
       (let* ((data (sys:gesture-spec-data gesture-spec))
              (modifiers (sys:gesture-spec-modifiers gesture-spec))
  
positive.code:    :font *default-font*
     :foreground :black
     :background :white
     :input-model '((:gesture-spec key-press))
     :resize-callback 'resize-callback))
  
  (defmethod (setf capi:simple-pane-font) :after (font (lem-pane lem-pane))
    (setf (lem-pane-font lem-pane) font)
  
negative.code: (defun key-press (self x y gesture-spec)
    (declare (ignore self x y))
    (with-error-handler ()
      (alexandria:when-let ((key (gesture-spec-to-key gesture-spec)))
        (lem:send-event key))))
  
  (defun lem-pane-width (lem-pane)
  