anchor.diff:  
   ;;;; Font description
   
  -(defmethod initialize-instance ((desc font-description) &key absolute-size)
  +(defmethod initialize-instance ((desc font-description) &key (size 16) size-is-absolute)
     (call-next-method)
  -  (when absolute-size
  -    (setf (font-description-size desc t) absolute-size)))
  +  (setf (font-description-size desc size-is-absolute) size))
   
   (defbinding %font-description-new () pointer)
   
  
positive.code:    :accessor font-description-variant
     :type variant)
     (weight
     :allocation :virtual
     :initarg :weight
     :getter "pango_font_description_get_weight"
     :setter "pango_font_description_set_weight"
  
negative.code:     :setter "pango_layout_set_alignment"
      :accessor layout-alignment
      :type alignment)
     (tabs
      :allocation :virtual
      :initarg :tabs
      :getter "pango_layout_get_tabs"
      :setter "pango_layout_set_tabs"
      :accessor layout-tabs
      :type tab-array)
     (single-paragraph
      :allocation :virtual
  