anchor.diff:  
   (defmethod initialize-instance ((object gobject) &rest initargs)
     (unless (slot-boundp object 'location)
  -    ;; Extract initargs which we should pass directly to the GObeject
  +    ;; Extract initargs which we should pass directly to the GObject
       ;; constructor
       (let* ((slotds (class-slots (class-of object)))
   	   (args (when initargs
  
positive.code: 
  (defmethod instance-finalizer ((instance gobject))
    (let ((location (proxy-location instance)))
      #'(lambda ()
  	(remove-cached-instance location)
  	(%object-unref location))))
  
  
  (defbinding (%gobject-new "g_object_new") () 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.37 2006-02-02 19:51:33 espen Exp $
  
  (in-package "GLIB")
  
  