From afa01e1b95c480818761b9e337ff08da44e9d49f Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 12 Sep 2006 14:00:59 +0000 Subject: [PATCH] Bug fix Organization: Straylight/Edgeware From: espen --- glib/gcallback.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 10f5aab..7e3ccd2 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gcallback.lisp,v 1.37 2006-08-30 09:52:10 espen Exp $ +;; $Id: gcallback.lisp,v 1.38 2006-09-12 14:00:59 espen Exp $ (in-package "GLIB") @@ -119,7 +119,7 @@ (defbinding source-remove () boolean (tag unsigned-int)) (define-callback source-callback-marshal nil ((callback-id unsigned-int)) - (callback-trampoline callback-id 0 nil)) + (callback-trampoline #'invoke-callback callback-id 0 nil)) (defbinding (timeout-add "g_timeout_add_full") (interval function &optional (priority +priority-default+)) unsigned-int -- [mdw]