tinyclos generic mechanism gets confused by a surplus of arguments.

[Tony Sidaway]

(define-generic G)
(define-method (G (a <exact>)) (+ a a))
(G 10)
===> 20
(G 10 11)
Error: bad argument count - received 3 but expected 2: #<procedure (? call-next-method a)

The exact same bug also exists in the Chicken 3 tinyclos egg on Chicken 3.4.0

[Tony Sidaway]

To clarify, the generic dispatch mechanism should identify the call as one for which it has no applicable methods. It should not call a method unless that method is specified so as to accept the argument list presented.

Here's an example of the desired behavior as seen in another system based on tinyclos. The define-method syntax is slightly different but it's basically the same code.

stklos> (define-generic G)
;; g
stklos> (define-method G((a <integer>)) (+ a a))
;; g
stklos> (G 1)
2
stklos> (G 1 2)
Error:
error: no applicable method for #[<generic> g (1)]
in call (g 1 2)

(type ",help" for more information)

[felix winkelmann]

I close this, since I consider tinyclos obsolete, and because nobody seems to work on this anymore.