anchor.diff:                       (send-abort-event editor-thread nil)
                        (send-event event)))
                  ;; workaround for exit problem
  -               ;; workaround for display update problem (incomplete)
                  (sleep 0.0001))
              #+sbcl
              (sb-sys:interactive-interrupt (c)
  
positive.code:            ((= code #x1ea) (setf code #o403))
             ((= code #x1ed) (setf code #o404))
             ((= code #x1ec) (setf code #o405))
             ;; M-[
             ((= code #x1f1)
              (charms/ll:timeout 100)
              (let ((code1 (charms/ll:getch)))
                (cond
  		;; drop mouse escape sequence
  		((= code1 #x03c)	; <
                   (loop :for code2 := (charms/ll:getch)
                      :until (or (= code2 -1)
                                 (= code2 #x04d)	   ; M
                                 (= code2 #x06d)))   ; m
  
negative.code:       (alt-key  nil)
        (esc-key  nil))
    (defun get-ch ()
      (let ((code          (getch-pad))
            (modifier-keys (charms/ll:PDC-get-key-modifiers)))
        (setf ctrl-key (logtest modifier-keys charms/ll:PDC_KEY_MODIFIER_CONTROL))
        (setf alt-key  (logtest modifier-keys charms/ll:PDC_KEY_MODIFIER_ALT))
  