*  (defclass A ()  (a :getter get-a))
   (defclass B (A) (a :setter set-a))
   provoque la redefinition de get-a qui est inutile

* l'ordre de definition des methodes est important pour celle qui dicriminent
sur <top>. 


	
