diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:01:00 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:01:00 +0100 |
| commit | d7255a1e69aaafd272413ebde5a85869024c075d (patch) | |
| tree | 48ec93a5de023cf036cbda350599088f31ef7860 | |
| parent | 2e942326f2fe5906ad97a46da425d93bb4fda2fe (diff) | |
In callbacks, DECLARE the selector argument IGNORABLE.
darcs-hash:bff6a2e538d5c8fef6d09992e8e7405968373dd6
| -rw-r--r-- | Lisp/method-definition.lisp | 1 |
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)) |