From 0146aef010185220f46d276072f46927409a092d Mon Sep 17 00:00:00 2001 Message-Id: <0146aef010185220f46d276072f46927409a092d.1714253041.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 4f65bfc..d80f89f 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]