anchor.diff:    (x double-float :in/out)
     (y double-float :in/out))
   
  -(defbinding device-to-user-distance () nil
  +(defbinding device-to-user-distance (cr dx &optional (dy 0.0)) nil
     (cr context)
     (dx double-float :in/out)
     (dy double-float :in/out))
  
positive.code: (defbinding status () status
    (cr context))
  
  (defbinding (set-source-color "cairo_set_source_rgba") (cr red green blue &optional (alpha 1.0)) nil
    (cr context)
    (red double-float)
    (green double-float)
    (blue double-float)
    (alpha double-float))
  
  (defbinding set-source-surface () nil
    (cr context)
  
negative.code: (defbinding new-path () nil
    (cr context))
  
  #?(pkg-exists-p "cairo" :atleast-version "1.2")
  (defbinding new-sub-path () nil
    (cr context))
  
  (defbinding close-path () nil
    (cr context))
  
  