From d7255a1e69aaafd272413ebde5a85869024c075d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 4 Mar 2008 16:01:00 +0100
Subject: In callbacks, DECLARE the selector argument IGNORABLE.

darcs-hash:bff6a2e538d5c8fef6d09992e8e7405968373dd6
---
 Lisp/method-definition.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Lisp/method-definition.lisp')

diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index 1503935..8f43868 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -121,6 +121,7 @@
                           `(defcallback ,callback-name
                                ,(typespec->c-type return-type)
                                ,cffi-lambda-list
+                             (declare (ignorable ,(cadr arg-symbols)))
                              #+(or) (progn  ;for debugging
                                       (print '(,(generic-function-name gf)
                                                ,@arguments))
-- 
cgit v1.2.3