summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:01:00 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:01:00 +0100
commitd7255a1e69aaafd272413ebde5a85869024c075d (patch)
tree48ec93a5de023cf036cbda350599088f31ef7860 /Lisp
parent2e942326f2fe5906ad97a46da425d93bb4fda2fe (diff)
In callbacks, DECLARE the selector argument IGNORABLE.
darcs-hash:bff6a2e538d5c8fef6d09992e8e7405968373dd6
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp1
1 files changed, 1 insertions, 0 deletions
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))