anchor.diff:  (defun bezier-region-to-coord-vec (region)
     (let* ((poly (polygonalize region))
            (points (polygon-points poly))
  -         (coord-vec (make-array 4 :fill-pointer 0)))
  +         (coord-vec (make-array (* 2 (length points)) :fill-pointer 0)))
       (map nil (lambda (point)
                  (multiple-value-bind (x y) (point-position point)
  -                 (vector-push-extend (round-coordinate x) coord-vec)
  -                 (vector-push-extend (round-coordinate y) coord-vec)))
  +                 (vector-push (round-coordinate x) coord-vec)
  +                 (vector-push (round-coordinate y) coord-vec)))
            points)
       coord-vec))
   
  
positive.code:               ;; 7. free the clipmask
                (xlib:free-gcontext mask-gc)
                (xlib:free-pixmap mask-pixmap))))))))
  
  
negative.code: (defpackage :mcclim-bezier-clx
    (:use #:clim #:clim-lisp #:mcclim-bezier)
    (:import-from #:clim-clx
  