anchor.diff:        :setter "font_options_set_hint_metrics"
         :accessor font-options-hint-metrics
         :type hint-metrics))
  -    (:metaclass proxy-class))
  +    (:metaclass proxy-class)    
  +    (:ref %font-options-reference)
  +    (:unref %font-options-destroy))
   
     (defclass scaled-font (proxy)
       ()
  -    (:metaclass proxy-class))
  +    (:metaclass proxy-class)
  +    (:ref %scaled-font-reference)
  +    (:unref %scaled-font-destroy))
   
     (defclass matrix (struct)
       ((xx :allocation :alien :initarg :xx :initform 1.0
  
positive.code: 
  (defbinding %font-face-destroy () nil
    (location pointer))
  
  (defmethod reference-foreign ((class (eql (find-class 'font-face))) location)
    (%font-face-reference location))
  
  (defmethod unreference-foreign ((class (eql (find-class 'font-face))) location)
    (%font-face-destroy location))
  
  (defbinding font-face-status () status
    (font-face font-face))
  
negative.code: 
  (defbinding %surface-destroy () nil
    (location pointer))
  
  (defbinding surface-create-similar () surface
    (other surface)
  