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: ;; notify events come from the window manager and state the correct
  ;; size and position, while genuine configure events only state the
  ;; correct size.
  
  (defun event-handler (&rest event-slots
                        &key display window event-key code state mode time
  