-;;;; Reference counting for gobject
-
-;; Specializing reference-instance and unreference-instance on gobject
-;; is not really necessary but done for efficiency
-
-(defmethod reference-instance ((object gobject))
- (%object-ref object)
- object)
-
-(defmethod unreference-instance ((object gobject))
- (%object-unref object))
-
-(deftype-method alien-ref gobject (type-spec)
- (declare (ignore type-spec))
- '%object-ref)
-
-(deftype-method alien-unref gobject (type-spec)
- (declare (ignore type-spec))
- '%object-unref)
-
-(define-foreign %object-ref () pointer
- (object (or gobject pointer)))
-
-(define-foreign %object-unref () nil
- (object (or gobject pointer)))
-
-