anchor.diff:  
   #||
   
  -$Id: events.lisp,v 1.5 2005-05-28 19:56:05 drose Exp $
  +$Id: events.lisp,v 1.6 2005-05-29 09:55:39 drose Exp $
   
   Events in Cocoa
   ---------------
  
positive.code: 				     #$NSFindFunctionKey         :FIND
  				     #$NSHelpFunctionKey         :HELP
  				     #$NSModeSwitchFunctionKey   :MODE-SWITCH
  				     #x1b                        :ESCAPE))
  
  ;;;(defun get-key-name-from-cocoa-constants (ns-in)
  
negative.code: (defun characters-to-key-name (ns-string-characters-in)
  ;;;  (format *terminal-io* "Processing ~S~%" ns-string-characters-in)
  ;;;  (format *terminal-io* "Got string with length ~A~%" (send ns-string-characters-in 'length))
  ;;;  (format *terminal-io* "character(0) = ~A~%"
  ;;;	  (char-code (send ns-string-characters-in :character-at-index 0)))
    (if (<= (send ns-string-characters-in :character-at-index 0) 255)
        (numeric-keysym-to-character (send ns-string-characters-in :character-at-index 0))
      (progn
  