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:     :type context)
     (text
      :allocation :virtual
      :initarg text
      :getter "pango_layout_get_text"
      :setter %layout-set-text
      :accessor layout-text
      :type string)
     (attributes 
      :allocation :virtual
      :initarg :attributes
  
negative.code:    :type stretch)
     (size
     :allocation :virtual
  ;   :initarg :size :initform 16 ; handled by initialize instance
  ;   :setter (setf font-description-size)
     :setter %set-font-description-size
     :getter "pango_font_description_get_size"
     :boundp %font-description-size-boundp
     :makunbound %font-description-size-makunbound
     :reader font-description-size
     :type integer)
     #?(pkg-exists-p "pango" :atleast-version "1.8.0")
     (size-is-absolute-p
     :allocation :virtual
  ;   :initarg :size-is-absolute :initform nil ; handled by initialize instance
     :getter "pango_font_description_get_size_is_absolute"
     :boundp %font-description-size-boundp
     :reader font-description-size-is-absolute-p
  