anchor.diff:  ;; 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: gcallback.lisp,v 1.5 2002-01-20 14:52:04 espen Exp $
  +;; $Id: gcallback.lisp,v 1.6 2002-03-19 17:09:15 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: 
  (pushnew 'after-gc-hook ext:*after-gc-hooks*)
  (after-gc-hook)
  
  
  
  
negative.code: (defmethod signal-connect :around ((gobject gobject) signal function
  				   &key after object)
    (declare (ignore object))
    (let ((callback-id (make-callback-closure (call-next-method))))
      (signal-connect-closure gobject signal callback-id :after after)))
  