summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:28:19 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:28:19 +0100
commit6da58040addc2b65a3f6e9a9b4a6cbbbc1a29047 (patch)
treea8b3682ef476482a8c44f5541e1452e9f1d7dcab
parentd7255a1e69aaafd272413ebde5a85869024c075d (diff)
Test CLASS-DEFINITION: Do not define a method specialised over (EQL +NIL+).
darcs-hash:f8274fbf2ad34ff49cb274d45fb82468850128ea
-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))