ООП в лиспе не обеспечивает синтаксическую абстракцию

theObject.copyDataTo(anotherObject)
theObject.copyDataFrom(anotherObject)

grandMa makeMittensFor(grandSon)

copyer.copyFrom(object1).to(object2)

grandMa make mittens for(grandSon)
grandMa make(mittens) for(grandSon)

object1.join(object2)

join(object1, object2)

foo(bar)
bar.foo()
bar.foo

object#method(...)

#(defgeneric collide (x y))
#
#(defmethod collide ((x asteroid) (y asteroid))
#  ;;астероид сталкивается с астероидом
#  )
#
#(defmethod collide ((x asteroid) (y spaceship))
#  ;;астероид сталкивается с космическим кораблем
#  )
#
#(defmethod collide ((x spaceship) (y asteroid))
#  ;;космический корабль сталкивается с астероидом
#  )
#
#(defmethod collide ((x spaceship) (y spaceship))
#  ;;космический корабль сталкивается с космическим кораблем
#  )


Asteroid := Object clone do(
  collide := method(o,
    if(o type == "Asteroid", /*астероид сталкивается с астероидом*/)
    if(o type == "Spaceship", /*астероид сталкивается с космическим кораблем*/)
  )
)
Spaceship := Object clone do(
  collide := method(o, 
   if(o type == "Spaceship", /*космический корабль сталкивается с космическим кораблем*/)
   if(o type == "Asteroid", /*космический корабль сталкивается с астероидом*/)
  )
)