anchor.diff:          (xlib:put-image mm mm-gc mm-image :src-x 0 :src-y 0 :x 0 :y 0
                           :width width :height height :bitmap-p nil))
         (xlib:free-gcontext mm-gc)
  +      (push #'(lambda () (xlib:free-pixmap mm)) ^cleanup)
         mm)))
   
   (defun compute-rgb-image (drawable image)
  
positive.code:             (xlib:gcontext-ts-y gc) 0)
        (when mask
          (setf (xlib:gcontext-clip-mask gc) mask))
        gc)))
  
  ;;;;
  
negative.code: 	(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)
        pm)))
  
  (defmethod design-gcontext ((medium clx-medium) (ink climi::pattern)
  