anchor.diff:  (defkeycode "C-y" 25)
   (defkeycode "C-z" 26)
   (defkeycode "escape" 27)
  +(defkeycode "C-\\" 28 "C-backslash")
  +(defkeycode "C-]" 29)
  +(defkeycode "C-^" 30)
  +(defkeycode "C-_" 31)
   (defkeycode "Spc" #x20)
   (defkeycode "[del]" #x7F)
   
  
positive.code:      (defconstant ,(intern
                      (string
                       (read-from-string
                        (format nil "#:~A" name))))
         ,code)))
  
  (defkeycode "C-@" 0)
  
negative.code: (defvar *string->key* (make-hash-table :test 'equal))
  (defvar *key->symbol* (make-hash-table))
  
  (defmacro defkeycode (name code &optional (const-name name))
    (when (integerp code)
      (setf code (code-char code)))
    `(progn
  