anchor.diff:    (define-enum-type hint-style :default :none :slight :medium :full)
     (define-enum-type hint-metrics :default :off :on)
   
  -  (defclass glyph (proxy)
  +  (defclass glyph (struct)
       ((index 
         :allocation :alien 
         :initarg :index 
  
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.2 2005-11-15 10:03:04 espen Exp $
  
  (in-package "CAIRO")
  
  
negative.code:   (location pointer))
  
  (defmethod reference-foreign ((class (eql (find-class 'font-options))) location)
    (%font-options-copy location))
  
  (defmethod unreference-foreign ((class (eql (find-class 'font-options))) location)
    (%font-options-destroy location))
  