anchor.diff:  ;;; coming from and kill them at the source...
   #-nil
   (defun clipping-region->rect-seq (clipping-region)
  -  (typecase clipping-region 
  +  (typecase clipping-region
       (area (multiple-value-list (region->clipping-values clipping-region)))
  -    (t (loop 
  +    (t (loop
             for region in (nreverse (mapcan
                                      (lambda (v) (unless (eq v +nowhere+) (list v)))
                                      (region-set-regions clipping-region
  
positive.code:                         (mask-bitcursor 1))
                     (declare (type (unsigned-byte 9) mask-bitcursor)
                      (type xlib:array-index mask-index index))
                     
                     (multiple-value-bind (red-map green-map blue-map opacity-map) (inks-to-rgb inks)
                       (dotimes (y height)
                         (unless (= 1 mask-bitcursor)
  
negative.code:           (setq char (char-code (char src i)))
            (if (or (< char min-char-index) (> char max-char-index))
                (progn
                  (warn "Character ~S not representable in font ~S"
                        (char src i) afont)
                  (return i))
                (setf (aref dst j) char)))
  