anchor.diff:      (when sheet
         (case event-key
   	(:key-press
  -	 (make-instance 'key-press-event :key-name (xlib:keycode->character display code state)
  -			:sheet sheet :modifier-state state :timestamp time))
  +         (multiple-value-bind (keyname modifier-state) (x-event-to-key-name-and-modifiers display code state)
  +           (make-instance 'key-press-event 
  +             :key-name keyname
  +             :sheet sheet :modifier-state modifier-state :timestamp time)))
   	(:key-release
  -	 (make-instance 'key-release-event :key-name (xlib:keycode->character display code state)
  -			:sheet sheet :modifier-state state :timestamp time))
  +         (multiple-value-bind (keyname modifier-state) (x-event-to-key-name-and-modifiers display code state)
  +           (make-instance 'key-release-event 
  +             :key-name keyname
  +             :sheet sheet :modifier-state modifier-state :timestamp time)))
   	(:button-release
   	 (make-instance 'pointer-button-release-event :pointer 0 :button code :x x :y y
   			:sheet sheet :modifier-state state :timestamp time))
  
positive.code: 			:sheet sheet :modifier-state state :timestamp time))
  	((:exposure :display)
  	 (make-instance 'window-repaint-event
  			:sheet sheet
  			:region (make-rectangle* x y (+ x width) (+ y height))))
  	(t
  	 nil)))))
  
  
negative.code: 
  ;;; CLX-PORT class
  
  (defclass clx-port (basic-port)
    ((display :initform nil
  	    :accessor clx-port-display)
     (screen :initform nil
  