anchor.diff:  				     #$NSFindFunctionKey         :FIND
   				     #$NSHelpFunctionKey         :HELP
   				     #$NSModeSwitchFunctionKey   :MODE-SWITCH
  +				     ;; #x7f = DEL in ASCII
  +;;;				     #x7f                        :BACKSPACE
  +				     ;; #x1b = ESC in ASCII
   				     #x1b                        :ESCAPE))
   
   ;;;(defun get-key-name-from-cocoa-constants (ns-in)
  
positive.code:   ;; This falls over when the function keys, the arrow keys, the num-lock key (and others)
    ;; are pressed; I guess we don't want to be doing this!
  ;;;	(key-name (ccl::lisp-string-from-nsstring (send event 'characters-ignoring-modifiers))))
    (let ((key-name (characters-to-key-name (send event 'characters-ignoring-modifiers))))
      key-name))
  
  
  
negative.code: 				     #$NSF34FunctionKey          :F34
  				     #$NSF35FunctionKey          :F35
  				     #$NSInsertFunctionKey       :INSERT
  				     ;; Neither of these appear to have the desired result.
  ;;;				     #$NSDeleteFunctionKey       #\Del   ; :DELETE-CHAR
  				     #$NSDeleteFunctionKey       :DELETE-CHAR
  				     #$NSHomeFunctionKey         :HOME
  				     #$NSBeginFunctionKey        :BEGIN
  