anchor.diff:  
   (defvar *input-queue* nil)
   
  -(defun getch (&optional (abort-jump t))
  +(defun getch ()
     (let* ((code (cond ((null *input-queue*)
                         (loop
                           :for code := (charms/ll:getch)
  
positive.code: 
  (defun input-key ()
    (let ((key
           (let ((c (getch nil)))
             (if (or (char= c C-x)
                     (char= c escape))
                 (let ((c2 (getch nil)))
                   (if (char= c2 escape)
                       (kbd c c2 (getch nil))
                       (kbd c c2)))
                 (kbd (input-char
                       (char-code c)))))))
  
negative.code:     (cond ((= code 410)
             (update-display-size)
             (getch))
            (t char))))
  
  (defun ungetch (char)
  