anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: cairo.lisp,v 1.9 2007-01-12 10:32:43 espen Exp $
  +;; $Id: cairo.lisp,v 1.10 2007-01-13 00:15:36 espen Exp $
   
   (in-package "CAIRO")
   
  
positive.code: 		 (cr context)
  		 (x double-float)
  		 (y double-float))
  	       (defbinding ,ename () boolean
  		 (cr context)
  		 (x1 double-float :out)
  		 (y1 double-float :out)
  
negative.code:     (:unref %destroy))
  
    (defclass image-surface (surface)
      (#?(pkg-exists-p "cairo" :atleast-version "1.2")
       (data
        :allocation :virtual 
        :getter "cairo_image_surface_get_data"
        :reader surface-data
        :type pointer)
       #?(pkg-exists-p "cairo" :atleast-version "1.2")
       (format
        :allocation :virtual 
        :getter "cairo_image_surface_get_format"
        :reader surface-format
        :type surface-format)
       (width
        :allocation :virtual 
        :getter "cairo_image_surface_get_width"
        :reader surface-width
  