diff options
| -rw-r--r-- | Lisp/method-definition.lisp | 8 | ||||
| -rw-r--r-- | Lisp/tests.lisp | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 8f43868..0b41898 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -106,9 +106,9 @@ argument-types)) (callback-name (intern-callback-name method)) (arg-symbols (mapcar #'(lambda (x) - (declare (ignore x)) - (gensym "ARG")) - argument-types))) + (declare (ignore x)) + (gensym "ARG")) + argument-types))) (eval (loop for type in argument-types for symbol in arg-symbols collect (list symbol (typespec->c-type type)) into cffi-lambda-list @@ -122,7 +122,7 @@ ,(typespec->c-type return-type) ,cffi-lambda-list (declare (ignorable ,(cadr arg-symbols))) - #+(or) (progn ;for debugging + #+(or) (progn ;for debugging (print '(,(generic-function-name gf) ,@arguments)) (format t "~&~A" (list ,@arg-symbols))) diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 68f230a..42ba3fe 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -431,7 +431,7 @@ ((x ,class-name) (y :int) z - (a (eql +nil+)) + (a t #+(or) (eql +nil+)) (b ns::ns-number) &rest rest) (declare (ignore z rest)) |