From ca5f64e957171127832a3ac1b849f59ab2d06e41 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 18 Oct 2007 10:39:32 +0000 Subject: [PATCH] Bug fix in CREATE-SIGNAL-EMIT-FUNCTION 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 3856d31..b2fd8cb 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.47 2007-10-17 14:31:19 espen Exp $ +;; $Id: gcallback.lisp,v 1.48 2007-10-18 10:39:32 espen Exp $ (in-package "GLIB") @@ -506,7 +506,7 @@ (defun create-signal-emit-function (signal-id) finally (if return-type (return - (with-gvalue (return-value) + (with-gvalue (return-value return-type) (%signal-emitv params signal-id detail return-value))) (%signal-emitv params signal-id detail (make-pointer 0)))) (loop -- [mdw]