From b7c49e0c03879ad0af9fcfd0910357290f32d35a Mon Sep 17 00:00:00 2001 From: espen Date: Thu, 10 May 2007 20:25:09 +0000 Subject: [PATCH] Second arg to make-callback-closure made optional --- glib/gcallback.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index dd8863c..79d3413 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.41 2007-04-06 14:31:43 espen Exp $ +;; $Id: gcallback.lisp,v 1.42 2007-05-10 20:25:09 espen Exp $ (in-package "GLIB") @@ -352,7 +352,7 @@ (detail quark) (closure (or null pointer)) (func (or null pointer)) - (data unsigned-long)) + (data pointer-data)) (defbinding signal-handler-disconnect () nil (instance ginstance) @@ -377,7 +377,7 @@ (closure-set-meta-marshal gclosure callback-id callback) gclosure)) -(defun make-callback-closure (function marshaller) +(defun make-callback-closure (function &optional (marshaller signal-handler-marshal)) (let ((callback-id (register-callback-function function))) (values (callback-closure-new callback-id marshaller user-data-destroy-callback) -- 2.11.0