anchor.diff:    (color :pointer))
   
   (cffi:defcvar ("PangoAttrList" PangoAttrList)
  - :pointer)
  +    :pointer)
   
   (cffi:defcfun ("pango_attr_list_new" pango_attr_list_new) :pointer)
   
  
positive.code: 	    (cffi:mem-aref trailing :int))))
  
  (defun get-glyph-position (layout index)
  	   (cffi:with-foreign-objects ((rect :pointer))
  	     (pango_layout_index_to_pos layout index rect)
  	     (unless (cffi-sys:null-pointer-p rect)
  	       (list (/ (cffi:foreign-slot-value rect 'PangoRectangle 'x) PANGO_SCALE)
  		     (/ (cffi:foreign-slot-value rect 'PangoRectangle 'y) PANGO_SCALE)
  		     (/ (cffi:foreign-slot-value rect 'PangoRectangle 'width) PANGO_SCALE)
  		     (/ (cffi:foreign-slot-value rect 'PangoRectangle 'height) PANGO_SCALE)))))
  
  (defun get-cursor-pos (layout index)
  	   (cffi:with-foreign-objects ((strong :pointer)
  				       (weak :pointer))
  	     (pango_layout_get_cursor_pos layout index strong weak)
  	     (values (unless (cffi-sys:null-pointer-p strong)
  		       (list (/ (cffi:foreign-slot-value strong 'PangoRectangle 'x) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value strong 'PangoRectangle 'y) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value strong 'PangoRectangle 'width) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value strong 'PangoRectangle 'height) PANGO_SCALE)))
  		     (unless (cffi-sys:null-pointer-p weak)
  		       (list (/ (cffi:foreign-slot-value weak 'PangoRectangle 'x) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value weak 'PangoRectangle 'y) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value weak 'PangoRectangle 'width) PANGO_SCALE)
  			     (/ (cffi:foreign-slot-value weak 'PangoRectangle 'height) PANGO_SCALE))))))
  
  
  (defun list-font-families (&optional (font-map (pango_cairo_font_map_get_default))) 
  
negative.code:       `(progn ,@body)))
  
  (defmacro with-attribute-list ((&optional (var '*attribute-list*) (layout '*layout*)) &body body)
    `(let ((,var (pango:pango_attr_list_new)))
       (unwind-protect
  	  (prog1 
  	      ,@body
  	    (pango:pango_layout_set_attributes ,layout ,var))
         (pango:pango_attr_list_unref ,var))))
  
  
  (defmacro add-pango-attribute (attr-list attr &optional start end)
  