anchor.diff:    (:export-class-name-p t)
     (:export-accessor-names-p t)
     (:accessor-name-transformer #'class*:name-identity))
  +(define-user-class window (gtk-window))
   
   (define-class gtk-buffer ()
     ((gtk-object)
  
positive.code:   (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer #'class*:name-identity))
  
  (defmethod web-context ((browser gtk-browser))
    (or (slot-value *browser* 'web-context)
  
negative.code:   (webkit:webkit-web-view-go-to-back-forward-list-item
     (gtk-object buffer)
     (webkit-history-entry-gtk-object history-entry)))
  