diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:28:19 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:28:19 +0100 |
| commit | 6da58040addc2b65a3f6e9a9b4a6cbbbc1a29047 (patch) | |
| tree | a8b3682ef476482a8c44f5541e1452e9f1d7dcab | |
| parent | d7255a1e69aaafd272413ebde5a85869024c075d (diff) | |
Test CLASS-DEFINITION: Do not define a method specialised over (EQL +NIL+).
darcs-hash:f8274fbf2ad34ff49cb274d45fb82468850128ea
| -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)) |