anchor.diff:              ;; to clx :] we stick with :unsorted until that can be sorted out
               (setf (xlib:gcontext-clip-mask gc :unsorted) rect-seq)))))))
   
  -(defmethod (setf medium-clipping-region) :after (region (medium clx-medium))
  -  (declare (ignore region))
  -  (with-slots (#|gc|# clipping-region-dirty) medium
  -    (setf clipping-region-dirty t)
  -    #+NIL (when gc (%set-gc-clipping-region medium gc))))
  -  
    
   (defgeneric medium-gcontext (medium ink))
  
positive.code:       (let ((fn (text-style-to-X-font port (medium-text-style medium))))
          (when (typep fn 'xlib:font)
            (setf (xlib:gcontext-font gc) fn)))
        (when clipping-region-dirty
          (%set-gc-clipping-region medium gc)
          (setf clipping-region-dirty nil))
        gc)))
  
  (defmethod medium-gcontext ((medium clx-medium) (ink (eql +transparent-ink+)))
  
negative.code: (defclass clx-medium (basic-medium)
    ((gc :initform nil)
     (picture :initform nil)
     (last-medium-device-region :initform nil)
     (clipping-region-tmp :initform (vector 0 0 0 0)
       :documentation "This object is reused to avoid consing in the
   most common case when configuring the clipping region.")
  