summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp8
-rw-r--r--Lisp/tests.lisp2
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))