Clojure Мультидиспетчеризация не по типам

A := Object clone do(
    a := 0
    accept := method(visitor, visitor doA(self))
)
B := Object clone do(
    b := 0
    accept := method(visitor, visitor doB(self))
)

Visitor := Object clone do(
   doA := method(acceptor, acceptor a = acceptor a + 1)
   doB := method(acceptor, acceptor b = acceptor b + 1)
)

a := A clone
b := B clone
visitor := Visitor clone

list(a, b) foreach(acceptor, acceptor accept(visitor)) 

writeln(a a, b b) #>>>>11

SpaceObject := Object clone do(
     name ::= nil
     collide := method(
       call evalArgs foreach(visitor, visitor  multyMethod(self))
     )
     multyMethod ::= method(spaceObject, writeln(spaceObject name ..  " collide with " .. self name)) // default 
)


Foo := SpaceObject clone setName("asteroid")
Bar := SpaceObject clone setName("spaceship")
Baz := SpaceObject clone setName("planet") setMultyMethod(
  method(spaceObject, writeln("just another behavor for " .. spaceObject name .. " with planet"))
)

foo := Foo clone
bar := Bar clone
baz := Baz clone


foo collide(bar, baz)
bar collide(foo, baz)
baz collide(foo, bar)



#>>>> asteroid collide with spaceship
#>>>> just another behavor for asteroid with planet
#>>>> spaceship collide with asteroid
#>>>> just another behavor for spaceship with planet
#>>>> planet collide with asteroid
#>>>> planet collide with spaceship