anchor.diff:  ;; 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 $
  +;; $Id: gobject.lisp,v 1.40 2006-02-03 00:41:01 espen Exp $
   
   (in-package "GLIB")
   
  
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:       #'(lambda ()
  	  (remove-cached-instance location)
  	  (%object-unref location)))
      #-glib2.8
      #'(lambda ()
  	(remove-cached-instance location)
  	  (%object-unref location))))
  