anchor.diff:  
   (defmethod instance-finalizer ((instance gobject))
     (let ((location (proxy-location instance)))
  -    #+gtk2.8
  +    #+glib2.8
       (if (slot-value (class-of instance) 'instance-slots-p)
   	#'(lambda ()
   	    (remove-cached-instance location)
  
positive.code:       (cache-instance (find-cached-instance location) t)
      (cache-instance (find-cached-instance location) nil)))
  
  #+gtk2.8
  (defbinding %object-add-toggle-ref () pointer
    (location pointer)
    ((callback toggle-ref-callback) pointer)
    (nil null))
  
  #+gtk2.8
  (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.40 2006-02-03 00:41:01 espen Exp $
  
  (in-package "GLIB")
  
  