anchor.diff:     (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
  +   ;; when configuring the clipping region.
      (clipping-region-tmp :initform (vector 0 0 0 0))))
  +
  +;; Variable is used to deallocate lingering resources after the operation.
  +(defvar ^cleanup)
   
    
  
positive.code: 
  
  ;; Variable is used to deallocate lingering resources after the operation.
  (defvar ^cleanup)
  
  ;;; XXX: both PM and MM pixmaps should be freed with (xlib:free-pixmap pixmap)
  ;;; when not used. We do not do that right now.
  
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)
  