anchor.diff:        (callback user-data-destroy-func))
        callback-id)))
   
  +(defgeneric create-callback-function (gobject function arg1))
  +
   (defmethod create-callback-function ((gobject gobject) function arg1)
     (cond
      ((or (eq arg1 t) (eq arg1 gobject)) function)
  
positive.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: gcallback.lisp,v 1.20 2005-02-04 00:15:24 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:     #'(lambda (&rest args) (apply function (rest args))))
     (t
      #'(lambda (&rest args) (apply function arg1 (rest args))))))
  
  (defgeneric signal-connect (gobject signal function &key))
  
  (defmethod signal-connect ((gobject gobject) signal function
  			   &key (detail 0) after object remove)
  