anchor.diff:  ;; events can be nil (no key pressed), characters #\a and function keys like :up, :down, etc.
   ;; todo: mouse, resizekey
   (defun get-event (window)
  +  ;; doesnt really get a "char", but a single byte, which can be a char.
     (let ((ch (get-char window)))
       (cond
         ;; -1 means no key has been pressed.
  
positive.code:     (:b2        . 350) 
      (:c1        . 351) 
      (:c3        . 352)
      (:btab      . 353) 
      (:beg       . 354) 
      (:cancel    . 355) 
      (:close     . 356) 
      (:command   . 357)
      (:copy      . 358) 
      (:create    . 359) 
      (:end       . 360) 
      (:exit      . 361) 
      (:find      . 362)
      (:help      . 363) 
  
negative.code:     (:sdc       . 383) 
      (:sdl       . 384) 
      (:select    . 385)
      (:send      . 386) ; Shift-End
      (:seol      . 387) 
      (:sexit     . 388) 
      (:sfind     . 389) 
      (:shelp     . 390)
      (:shome     . 391) ; Shift-Home, Shift-Pos1
      (:sic       . 392) 
      (:sleft     . 393) 
      (:smessage  . 394) 
  