anchor.diff:  
   (defbinding (matrix "cairo_get_matrix") () nil
     (cr context)
  -  ((make-instance 'matrix) matrix :return))
  +  ((make-instance 'matrix) matrix :in/return))
   
   (defbinding identity-matrix () nil
     (cr context))
   
   (defbinding user-to-device () nil
     (cr context)
  -  (x double-float :in-out)
  -  (y double-float :in-out))
  +  (x double-float :in/out)
  +  (y double-float :in/out))
   
   (defbinding user-to-device-distance () nil
     (cr context)
  -  (dx double-float :in-out)
  -  (dy double-float :in-out))
  +  (dx double-float :in/out)
  +  (dy double-float :in/out))
   
   (defbinding device-to-user () nil
     (cr context)
  -  (x double-float :in-out)
  -  (y double-float :in-out))
  +  (x double-float :in/out)
  +  (y double-float :in/out))
   
   (defbinding device-to-user-distance () nil
     (cr context)
  -  (dx double-float :in-out)
  -  (dy double-float :in-out))
  +  (dx double-float :in/out)
  +  (dy double-float :in/out))
   
   
   ;;; Text
  
positive.code: ;; 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.5 2006-02-09 22:30:39 espen Exp $
  
  (in-package "CAIRO")
  
  
negative.code: (defbinding %font-options-destroy () nil
    (location pointer))
  
  (defbinding font-options-status () status
    (font-options font-options))
  
  