anchor.diff:                    (#.(char-code #\F) (make-key :shift t :sym "End"))
                     (#.(char-code #\H) (make-key :shift t :sym "Home"))))
                (#.(char-code #\3)
  -                (case (charms/ll:getch)
  +                (case (getch)
                     (#.(char-code #\A) (make-key :meta t :sym "Up"))
                     (#.(char-code #\B) (make-key :meta t :sym "Down"))
                     (#.(char-code #\C) (make-key :meta t :sym "Right"))
  
positive.code:               (setf (lem::attribute-%internal-value attribute) bits)
                bits)))))
  
  (defun get-key (code)
    (let* ((char (let ((nbytes (utf8-bytes code)))
                   (if (= nbytes 1)
  
negative.code:                   (#.(char-code #\F) (make-key :ctrl t :sym "End"))
                    (#.(char-code #\H) (make-key :ctrl t :sym "Home"))))
               (#.(char-code #\6)
                  (case (getch)
                    (#.(char-code #\A) (make-key :shift t :ctrl t :sym "Up"))
                    (#.(char-code #\B) (make-key :shift t :ctrl t :sym "Down"))
                    (#.(char-code #\C) (make-key :shift t :ctrl t :sym "Right"))
  