anchor.diff:                ;; 7. free the clipmask
                 (xlib:free-gcontext mask-gc)
                 (xlib:free-pixmap mask-pixmap))))))))
  -
  
positive.code: (defun bezier-region-to-coord-vec (region)
    (let* ((poly (polygonalize region))
           (points (polygon-points poly))
           (coord-vec (make-array 4 :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)))
           points)
      coord-vec))
  
  
negative.code: (defpackage :mcclim-bezier-clx
    (:use #:clim #:clim-lisp #:mcclim-bezier)
    (:import-from #:clim-clx
  