anchor.diff:  (defbinding widget-size-request
       (widget &optional (requisition (make-instance 'requisition))) nil
     (widget widget)
  -  (requisition requisition :return))
  +  (requisition requisition :in/return))
   
   (defbinding widget-get-child-requisition 
       (widget &optional (requisition (make-instance 'requisition))) nil
     (widget widget)
  -  (requisition requisition :return))
  +  (requisition requisition :in/return))
   
   (defbinding widget-size-allocate () nil
     (widget widget)
  
positive.code:        (slot-boundp widget 'name) (not (zerop (length (widget-name widget)))))
        (print-unreadable-object (widget stream :type t :identity nil)
          (format stream "~S at 0x~X" 
  	 (widget-name widget) (sap-int (foreign-location widget))))
      (call-next-method)))
  
  (defmethod shared-initialize ((widget widget) names &key (visible nil visible-p))
    (when (and visible-p (not visible)) ; widget explicit set as not visible
      (setf (user-data widget 'hidden-p) t)
      (signal-connect widget 'show 
  
negative.code: ;; Common Lisp bindings for GTK+ v2.x
  ;; Copyright 2000-2006 Espen S. Johnsen <espen@users.sf.net>
  ;;
  ;; Permission is hereby granted, free of charge, to any person obtaining
  ;; a copy of this software and associated documentation files (the
  