Update of /project/rdnzl/cvsroot/RDNZL In directory common-lisp.net:/tmp/cvs-serv26247 Modified Files: CHANGELOG.txt ffi.lisp rdnzl.asd Log Message: delegate fixes (Dominic Robinson), version 0.8.0 Date: Fri Jan 13 08:06:29 2006 Author: eweitz Index: RDNZL/CHANGELOG.txt diff -u RDNZL/CHANGELOG.txt:1.3 RDNZL/CHANGELOG.txt:1.4 --- RDNZL/CHANGELOG.txt:1.3 Mon Nov 21 15:03:40 2005 +++ RDNZL/CHANGELOG.txt Fri Jan 13 08:06:28 2006 @@ -1,3 +1,8 @@ +Version 0.8.0 +2006-01-13 +Fix mechanism which releases delegate adapters (thanks to Dominic Robinson) +Updated to DLL version 0.5.0 + Version 0.7.1 2005-11-21 Updated to DLL version 0.4.1 Index: RDNZL/ffi.lisp diff -u RDNZL/ffi.lisp:1.2 RDNZL/ffi.lisp:1.3 --- RDNZL/ffi.lisp:1.2 Fri Jul 8 20:45:34 2005 +++ RDNZL/ffi.lisp Fri Jan 13 08:06:28 2006 @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: RDNZL; Base: 10 -*- -;;; $Header: /project/rdnzl/cvsroot/RDNZL/ffi.lisp,v 1.2 2005/07/08 18:45:34 eweitz Exp $ +;;; $Header: /project/rdnzl/cvsroot/RDNZL/ffi.lisp,v 1.3 2006/01/13 07:06:28 eweitz Exp $ -;;; Copyright (c) 2004-2005, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2006, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -331,7 +331,7 @@ (funcall (gethash index *callback-hash*) args)) (ffi-define-callable - (ReleaseDelegateAdapter ffi-void-pointer) + (ReleaseDelegateAdapter ffi-void) ((index ffi-integer)) ;; remove entry from hash table if CLR is done with it - (remhash index *callback-hash*)) \ No newline at end of file + (remhash index *callback-hash*)) Index: RDNZL/rdnzl.asd diff -u RDNZL/rdnzl.asd:1.2 RDNZL/rdnzl.asd:1.3 --- RDNZL/rdnzl.asd:1.2 Mon Nov 21 15:04:23 2005 +++ RDNZL/rdnzl.asd Fri Jan 13 08:06:28 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /project/rdnzl/cvsroot/RDNZL/rdnzl.asd,v 1.2 2005/11/21 14:04:23 eweitz Exp $ +;;; $Header: /project/rdnzl/cvsroot/RDNZL/rdnzl.asd,v 1.3 2006/01/13 07:06:28 eweitz Exp $ ;;; Copyright (c) 2004, Dr. Edmund Weitz. All rights reserved. @@ -39,7 +39,7 @@ (defsystem #:rdnzl :serial t - :version "0.7.1" + :version "0.8.0" :components ((:file "packages") (:file "specials") (:file "util")