anchor.diff:    (language :pointer))
   
   (cffi:defcenum PangoDirection
  -	:PANGO_DIRECTION_LTR
  -	:PANGO_DIRECTION_RTL
  -	:PANGO_DIRECTION_TTB_LTR
  -	:PANGO_DIRECTION_TTB_RTL
  -	:PANGO_DIRECTION_WEAK_LTR
  -	:PANGO_DIRECTION_WEAK_RTL
  -	:PANGO_DIRECTION_NEUTRAL)
  +  :PANGO_DIRECTION_LTR
  +  :PANGO_DIRECTION_RTL
  +  :PANGO_DIRECTION_TTB_LTR
  +  :PANGO_DIRECTION_TTB_RTL
  +  :PANGO_DIRECTION_WEAK_LTR
  +  :PANGO_DIRECTION_WEAK_RTL
  +  :PANGO_DIRECTION_NEUTRAL)
   
   (cffi:defcfun ("pango_unichar_direction" pango_unichar_direction) PangoDirection
     (ch :pointer))
  
positive.code:     (values 
       (/ (cffi:mem-aref w :int) PANGO_SCALE)
       (/ (cffi:mem-aref h :int) PANGO_SCALE))))
  	
  
  (defun get-layout-line-extents (line)
    (cffi:with-foreign-objects ((ink :pointer)
  
negative.code:       (prog1 (loop for i from 0 to (1- len)
  		collect (cffi:mem-aref (cffi:mem-aref l :pointer ) :pointer i))
  	(g_object_unref l)))))
  
  (defun list-font-family-names (&optional (font-map (pango_cairo_font_map_get_default))) 
    (cffi:with-foreign-objects ((c :int)
  			      (l :pointer))
  