anchor.diff:  ;; Common Lisp bindings for GTK+ v2.0
  -;; Copyright 2005 Espen S. Johnsen <espen@users.sf.net>
  +;; Copyright 2005-2006 Espen S. Johnsen <espen@users.sf.net>
   ;;
   ;; Permission is hereby granted, free of charge, to any person obtaining
   ;; a copy of this software and associated documentation files (the
  
positive.code:     (funcall (if fatal-p #'error #'warn) condition
       :domain domain :message message)))
  
  (setf (extern-alien "log_handler" system-area-pointer) 
   (callback-address log-handler))
  
  
  #+glib2.6
  (progn
    ;; Unfortunately this will only work as long as we don't abort to
    ;; toplevel from within the log handler. If we do that, the next
    ;; invocation of g_log will be handled as a recursion and cause an
    ;; abort (SIGABORT being signaled). To make things even worse, SBCL
    ;; doesn't handle SIGABRT at all.
    (defbinding %log-set-default-handler () pointer
      ((progn log-handler) callback)
      (nil null))
    (%log-set-default-handler))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gerror.lisp,v 1.6 2006-04-25 22:01:12 espen Exp $
  
  
  (in-package "GLIB")
  