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