anchor.diff:      :type context)
      (text
       :allocation :virtual
  -    :initarg text
  +    :initarg :text
       :getter "pango_layout_get_text"
       :setter %layout-set-text
       :accessor layout-text
  -    :type string)
  +    :type (static string))
      (attributes 
       :allocation :virtual
       :initarg :attributes
  
positive.code:     :setter "pango_layout_set_alignment"
      :accessor layout-alignment
      :type alignment)
     (tab-array
      :allocation :virtual
      :initarg :tab-array
      :getter "pango_layout_tab_array"
      :setter "pango_layout_tab-array"
      :accessor layout-tab-array
      :type tab-array)
     (single-paragraph
      :allocation :virtual
  
negative.code: (defbinding font-description-to-string () string
    (desc font-description))
  
  (defbinding font-description-copy () font-description
    (font-description font-description))
  
  (defun ensure-font-description (font-description &optional copy-p)
    (etypecase font-description
      (font-description (if copy-p
  			  (font-description-copy font-description)
  			font-description))
      (string (font-description-from-string font-description))
      (list (apply #'make-instance 'font-description font-description))))
  
  
  ;;;; Layout
  
  