anchor.diff:  
   (defmethod reference-foreign ((class gobject-class) location)
     (declare (ignore class))
  +  #+gtk2.8
     (if (slot-value class 'instance-slots-p)
         (%object-add-toggle-ref location)
  -    (%object-ref location)))
  +    (%object-ref location))
  +  #-gtk2.8
  +  (%object-ref location))
   
   (defmethod unreference-foreign ((class gobject-class) location)
     (declare (ignore class))
  
positive.code: 
  (defmethod instance-finalizer ((instance gobject))
    (let ((location (proxy-location instance)))
      (if (slot-value (class-of instance) 'instance-slots-p)
  	#'(lambda ()
  	    (remove-cached-instance location)
  	    (%object-remove-toggle-ref location))
        #'(lambda ()
  	  (remove-cached-instance location)
  	  (%object-unref location)))))
  
  
  (defbinding (%gobject-new "g_object_new") () pointer
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gobject.lisp,v 1.39 2006-02-03 00:10:56 espen Exp $
  
  (in-package "GLIB")
  
  