anchor.diff:  	 (slot-value object 'location) 
   	 (%gobject-new (type-number-of object)))))
   
  -  (%object-weak-ref object)
     (apply #'call-next-method object initargs))
   
  -
  -(defmethod initialize-instance :around ((object gobject) &rest initargs)
  -  (declare (ignore initargs))
  -  (call-next-method)
  -  (%object-weak-ref object))
   
   (defmethod instance-finalizer ((instance gobject))
     (let ((location (proxy-location instance)))
       #'(lambda ()
   	(remove-cached-instance location)
  -	(%weak-object-unref location)
   	(%object-unref location))))
   
  -
  -(defcallback weak-notify (nil (data int) (location pointer))
  -  (let ((object (find-cached-instance location)))
  -    (when object
  -;;       (warn "~A being finalized by the GObject system while still in existence in lisp" object)
  -      (slot-makunbound object 'location)
  -      (remove-cached-instance location))))
  -
  -(defbinding %object-weak-ref (object) nil
  -  (object gobject)
  -  ((callback weak-notify) pointer)
  -  (0 unsigned-int))
  -
  -(defbinding %object-weak-unref () nil
  -  (location pointer)
  -  ((callback weak-notify) pointer)
  -  (0 unsigned-int))
  -	    
   
   (defbinding (%gobject-new "g_object_new") () pointer
     (type type-number)
  
positive.code:     ()
      (:metaclass gobject-class)
      (:alien-name "GObject")))
  
  (defmethod print-object ((instance gobject) stream)
    (print-unreadable-object (instance stream :type t :identity nil)
      (if (slot-boundp instance 'location)
  	(format stream "at 0x~X" (sap-int (proxy-location instance)))
        (write-string "(destroyed)" stream))))
  
  
  (defmethod initialize-instance ((object gobject) &rest initargs)
    ;; Extract initargs which we should pass directly to the GObeject
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gobject.lisp,v 1.21 2004-11-09 12:47:44 espen Exp $
  
  (in-package "GLIB")
  
  