Log handling code commented out

diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp
index 60d66525655c1edfc1fa79b891b07f3e49716b50..0837c20971845878d6f1862ea57c0cb7fa9ff1b1 100644 (file)
--- a/glib/gcallback.lisp
+++ b/glib/gcallback.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; 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.19 2005/02/03 23:09:04 espen Exp $
+;; $Id: gcallback.lisp,v 1.20 2005/02/04 00:15:24 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -345,14 +345,14 @@ (defun signal-emit (object signal &rest args)
 
 ;;; Message logging
 
 
 ;;; Message logging
 

-TODO: define and signal conditions based on log-level
+;; 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))
+;; (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))
+;; (setf (extern-alien "log_handler" system-area-pointer) (callback log-handler))

 
 
 ;;;; Convenient macros
 
 
 ;;;; Convenient macros