anchor.diff:  
   (defmethod realize-mirror ((port clx-port) (sheet top-level-sheet-pane))
     (let ((q (compose-space sheet)))
  -    #+nil ; SHEET and its descendants are grafted, but unmirrored :-\ -- APD
  -    (allocate-space sheet
  -                    (space-requirement-width q)
  -                    (space-requirement-height q))
       (let ((frame (pane-frame sheet))
             (window (realize-mirror-aux port sheet
                                         :map nil
  
positive.code: 		  :host (xlib:display-host display)
  		  :display-id (xlib:display-display 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)))
  
negative.code:          (r* (transform-region
                (sheet-native-transformation (sheet-parent sheet))
                (transform-region (sheet-transformation sheet) r)))
           (mirror-transformation
            (if (region-equal r* +nowhere+)
                (make-translation-transformation 0 0)
  