anchor.diff:        #'(lambda ()
   	  (remove-cached-instance location)
   	  (%object-unref location)))
  -    #-gtk2.8
  +    #-glib2.8
       #'(lambda ()
   	(remove-cached-instance location)
   	  (%object-unref location))))
  
positive.code: 
  (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))
    #-gtk2.8
    (%object-ref location))
  
  (defmethod unreference-foreign ((class gobject-class) location)
  
negative.code:       (cache-instance (find-cached-instance location) t)
      (cache-instance (find-cached-instance location) nil)))
  
  #+glib2.8
  (defbinding %object-add-toggle-ref () pointer
    (location pointer)
    ((callback toggle-ref-callback) pointer)
    (nil null))
  
  #+glib2.8
  (defbinding %object-remove-toggle-ref () pointer
    (location pointer)
    ((callback toggle-ref-callback) pointer)
  