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 /Lisp/method-definition.lisp | |
| parent | d7255a1e69aaafd272413ebde5a85869024c075d (diff) | |
Test CLASS-DEFINITION: Do not define a method specialised over (EQL +NIL+).
darcs-hash:f8274fbf2ad34ff49cb274d45fb82468850128ea
Diffstat (limited to 'Lisp/method-definition.lisp')
| -rw-r--r-- | Lisp/method-definition.lisp | 8 |
1 files changed, 4 insertions, 4 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))) |