anchor.diff:                    (#.(char-code #\F) (make-key :shift t :ctrl t :sym "End"))
                     (#.(char-code #\H) (make-key :shift t :ctrl t :sym "Home"))))
                (#.(char-code #\7)
  -                (case (charms/ll:getch)
  +                (case (getch)
                     (#.(char-code #\A) (make-key :meta t :ctrl t :sym "Up"))
                     (#.(char-code #\B) (make-key :meta t :ctrl t :sym "Down"))
                     (#.(char-code #\C) (make-key :meta t :ctrl 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:                    (let ((vec (make-array nbytes :element-type '(unsigned-byte 8))))
                       (setf (aref vec 0) code)
                       (loop :for i :from 1 :below nbytes
                             :do (setf (aref vec i) (getch)))
                       (handler-case (schar (babel:octets-to-string vec) 0)
                         (babel-encodings:invalid-utf8-continuation-byte ()
                           (code-char code)))))))
  