(defun g-object-dispose (pointer)
(unless (gethash (pointer-address pointer) *foreign-gobjects-ref-count*)
(defun g-object-dispose (pointer)
(unless (gethash (pointer-address pointer) *foreign-gobjects-ref-count*)
(error "GObject ~A is already disposed" pointer))
(debugf "g_object_unref(~A) (of type ~A, lisp-value ~A) (lisp ref-count ~A, gobject ref-count ~A)~%"
pointer
(error "GObject ~A is already disposed" pointer))
(debugf "g_object_unref(~A) (of type ~A, lisp-value ~A) (lisp ref-count ~A, gobject ref-count ~A)~%"
pointer