anchor.diff:    (apply #'signal-emit-with-detail object signal 0 args))
   
   
  -;;; Message logging
  -
  -;; TODO: define and signal conditions based on log-level
  -
  -;; (defcallback log-handler (nil (domain (copy-of string))
  -;; 			  (log-level int)
  -;; 			  (message (copy-of string)))
  -;;   (error "~A: ~A" domain message))
  -
  -;; (setf (extern-alien "log_handler" system-area-pointer) (callback log-handler))
  -
  -
   ;;;; Convenient macros
   
   (defmacro def-callback-marshal (name (return-type &rest args))
  
positive.code:     #'(lambda (&rest args) (apply function (rest args))))
     (t
      #'(lambda (&rest args) (apply function arg1 (rest args))))))
  
  (defmethod signal-connect ((gobject gobject) signal function
  			   &key (detail 0) after object remove)
  
negative.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.21 2005-02-14 00:41:54 espen Exp $
  
  (in-package "GLIB")
  
  