From 6da58040addc2b65a3f6e9a9b4a6cbbbc1a29047 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 16:28:19 +0100 Subject: Test CLASS-DEFINITION: Do not define a method specialised over (EQL +NIL+). darcs-hash:f8274fbf2ad34ff49cb274d45fb82468850128ea --- Lisp/method-definition.lisp | 8 ++++---- 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)) -- cgit v1.2.3