Hallo,
Ich have tried to write the definition of  mapcar, but  I  don't 
 succeed,  because  funktion  mapcar  can  take  any  numbers of 
 arguments and the recursion procedure is very comlicated. For  example :
 >(mapcar #'+ '(1 2 3))
 >6
 >(mapcar #'+  '(1 2 3)  '(24 3)  '(89 43))
 >(114 48)

feilong
Thank you