From 865efd455b9fcf3a8944492c3f32a672d12c43b0 Mon Sep 17 00:00:00 2001 Message-Id: <865efd455b9fcf3a8944492c3f32a672d12c43b0.1716777766.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 19 Feb 2007 13:46:44 +0000 Subject: [PATCH] Type for callback ids changes to POINTER-DATA Organization: Straylight/Edgeware From: espen --- glib/gcallback.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 22d91a1..0aa8f88 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.39 2007/01/07 20:03:51 espen Exp $ +;; $Id: gcallback.lisp,v 1.40 2007/02/19 13:46:44 espen Exp $ (in-package "GLIB") @@ -550,8 +550,8 @@ (defmacro define-callback-marshal (name return-type args &key (callback-id :last (t (second arg)))))) `(define-callback ,name ,return-type ,(ecase callback-id - (:first `((callback-id unsigned-int) ,@(mapcar #'list names types))) - (:last `(,@(mapcar #'list names types) (callback-id unsigned-int)))) + (:first `((callback-id pointer-data) ,@(mapcar #'list names types))) + (:last `(,@(mapcar #'list names types) (callback-id pointer-data)))) (declare (ignore ,@ignore)) (invoke-callback callback-id ',return-type ,@(nreverse params))))) -- [mdw]