From 831d4900921d22fa7647325358508a09dc148ea3 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Sun, 7 Nov 2004 16:03:55 +0000
Subject: [PATCH] def-callback-marshal moved to gcallback.lisp

---
 glib/glib.lisp | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 5429846..ef402b1 100644
--- a/glib/glib.lisp
+++ b/glib/glib.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
 
-;; $Id: glib.lisp,v 1.17 2004-11-07 01:23:38 espen Exp $
+;; $Id: glib.lisp,v 1.18 2004-11-07 16:03:55 espen Exp $
 
 
 (in-package "GLIB")
@@ -71,17 +71,6 @@
       (funcall (cdr user-data) (car user-data))))
   (remhash id *user-data*))
 
-(defmacro def-callback-marshal (name (return-type &rest args))
-  (let ((names (loop 
-		for arg in args 
-		collect (if (atom arg) (gensym) (first arg))))
-	(types (loop 
-		for arg in args 
-		collect (if (atom arg) arg (second arg)))))
-    `(defcallback ,name (,return-type ,@(mapcar #'list names types)
-			 (callback-id unsigned-int))
-      (invoke-callback callback-id ',return-type ,@names))))
-
 
 ;;;; Quarks
 
-- 
2.11.0