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:       (cache-instance (find-cached-instance location) t)
      (cache-instance (find-cached-instance location) nil)))
  
  (defbinding %object-add-toggle-ref () pointer
    (location pointer)
    ((callback toggle-ref-callback) pointer)
    (nil null))
  
  (defbinding %object-remove-toggle-ref () pointer
    (location pointer)
    ((callback toggle-ref-callback) 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")
  
  