anchor.diff:  
   #+gtk2.6
   (defbinding (dialog-set-alternative-button-order 
  -	     "gtk_dialog_set_alternative_button_order_from_array") 
  -    (dialog new-order)
  +	     "gtk_dialog_set_alternative_button_order_from_array")
  +    (dialog new-order) nil
     (dialog dialog)
     ((length new-order) int)
     ((map 'vector #'(lambda (response)
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtk.lisp,v 1.54 2006-02-19 19:31:14 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:     (initial-add window #'window-add-accel-group 
       initargs :accel-group :accel-groups)))
  
  #-debug-ref-counting
  (defmethod print-object ((window window) stream)
    (if (and 
         (proxy-valid-p window) 
         (slot-boundp window 'title) 
         (not (zerop (length (window-title window)))))
        (print-unreadable-object (window stream :type t :identity nil)
          (format stream "~S at 0x~X" 
  	 (window-title window) (sap-int (foreign-location window))))
      (call-next-method)))
  
  (defbinding window-set-wmclass () nil
    (window window)
  