anchor.diff:                 (aref tmp 2) width
                  (aref tmp 3) height
                  (xlib:gcontext-clip-mask gc :yx-banded) tmp)))
  -      ((typep clipping-region 'climi::standard-rectangle-set)
  +      (climi::standard-rectangle-set
          (alexandria:when-let ((rect-seq (clipping-region->rect-seq clipping-region)))
            ;; What McCLIM is generating is not :yx-banded in the same
            ;; sense as CLX requires it. Use :unsorted until we fix it.
            #+ (or) (setf (xlib:gcontext-clip-mask gc :yx-banded) rect-seq)
            #- (or) (setf (xlib:gcontext-clip-mask gc :unsorted) rect-seq)))
  -      ((typep clipping-region 'standard-ellipse)
  +      (otherwise
          (multiple-value-bind (x1 y1 width height)
  -           (region->clipping-values (bounding-rectangle clipping-region))
  +           (region->clipping-values clipping-region)
            (let* ((drawable (sheet-xmirror (medium-sheet medium)))
                   (mask (xlib:create-pixmap :drawable drawable
                                             :depth 1
  
positive.code:    (last-medium-device-region :initform nil
                                :accessor last-medium-device-region)
     ;; CLIPPING-REGION-TMP is reused to avoid consing in the most common case
     ;; when configuring the clipping region.n
     (clipping-region-tmp :initform (vector 0 0 0 0))))
  
  
  
negative.code:                 (let ((elt (aref idata y x)))
                    (setf (aref pdata y x) (ash elt -8)))))
        (unless (or (>= width 2048) (>= height 2048)) ;### CLX bug
          (xlib:put-image pm pm-gc pm-image :src-x 0 :src-y 0 :x 0 :y 0
                          :width width :height height))
        (xlib:free-gcontext pm-gc)
        (push #'(lambda () (xlib:free-pixmap pm)) ^cleanup)
  