From 7ff34bf3c1e17eb180a348d16f108bfdc83bfce4 Mon Sep 17 00:00:00 2001 Message-Id: <7ff34bf3c1e17eb180a348d16f108bfdc83bfce4.1719224025.git.mdw@distorted.org.uk> 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 5dd08ee..f5218dd 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]