anchor.diff:  #define KEY_MOUSE       0631            /* Mouse event has occurred */
   #define KEY_RESIZE      0632            /* Terminal resize event */
   #define KEY_EVENT       0633            /* We were interrupted by an event */
  +
   #define KEY_MAX         0777            /* Maximum key value is 0633 */
   
   |# 
  
positive.code:     (:mouse     . #o631)
      (:resize    . #o632)
      (:event     . #o633)
      (:max       . #o777)))
  
  #define KEY_CODE_YES    0400            /* A wchar_t contains a key code */
  #define KEY_MIN         0401            /* Minimum curses key */
  #define KEY_BREAK       0401            /* Break key (unreliable) */
  #define KEY_DOWN        0402            /* down-arrow key */
  #define KEY_UP          0403            /* up-arrow key */
  
negative.code:              (multiple-value-bind (mev y x) (get-mouse-event)
                 (values mev y x)) ; returns 3 values, see mouse.lisp
               ev)))
        ;; todo: unknown codes, like mouse, resize and unknown function keys.
        (t
         ;;(error "invalid value of char received from ncurses.")
         (princ ch window)))))
  
  #|
      ;; I dont want them defined as octal literals.
    '((:code_yes  . #o400)
      (:min       . #o401)
  
      (:break     . #o401)
      (:down      . #o402)
      (:up        . #o403)
  