anchor.diff:  (defmethod climi::set-port-keyboard-focus (focus (port clx-port))
     (let ((mirror (sheet-mirror focus)))
       (when mirror
  -      (safely-set-input-focus (clx-port-display port) mirror :parent nil))))
  +      (xlib:set-input-focus (clx-port-display port) mirror :parent nil))))
  
positive.code:             (let* ((frame (pane-frame sheet))
                     (focus (climi::keyboard-input-focus frame)))
                (when (and focus (sheet-mirror focus))
                  (safely-set-input-focus (clx-port-display *clx-port*)
                                          (sheet-mirror focus) :parent time)
                  nil)))))
  	(t
  	 (unless (xlib:event-listen (clx-port-display *clx-port*))
  
negative.code:               :host (xlib:display-host (slot-value object 'display))
                :display-id (xlib:display-display (slot-value object 'display))))))
  
  (defun clx-error-handler (display error-name &rest args &key major &allow-other-keys)
    (unless (and (eql major 42)  ; 42 is SetInputFocus, we ignore match-errors from that
                 (eq error-name 'xlib:match-error))
      (format *error-output* "Received CLX ~A in process ~W~%"
              error-name (clim-sys:process-name (clim-sys:current-process)))
      (apply #'xlib:default-error-handler display error-name args)))
  
  (defmethod initialize-clx ((port clx-port))
    (let ((options (cdr (port-server-path port))))
      (setf (clx-port-display port)
  	  (xlib:open-display (getf options :host "") :display (getf options :display-id 0)))
      (progn
        (setf (xlib:display-error-handler (clx-port-display port))
          #'clx-error-handler)
  
        #+nil
        (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-force-output))
      
  