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 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Lisp/method-definition.lisp') 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))) -- cgit v1.2.3