[newbie] How to optimize maxima code?

Hello All,

I'm doing some calculations with spherical functions Ylm, and
the problem is that my code is running painfully slow.

I'd like to optimize it a bit, but have no clue how -- no previous Lisp
or Maxima experience at all.


*** So, I'd like to ask 2 questions:

1. Is there something like a Maxima profiler?
2. If someone has any advice on how to perform faster - I would be
   grateful.

My code is located here:
http://landau.phys.spbu.ru/~kirr/repos/maxima-study/sph.mac
http://landau.phys.spbu.ru/~kirr/repos/maxima-study/test_sph.mac

run it with:
(%i1) load("test_sph.mac");


Thanks in advance,

-- 
    ????? ????????, ??????.
    http://landau.phys.spbu.ru/~kirr/aiv/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: Digital signature
Url : http://www.math.utexas.edu/pipermail/maxima/attachments/20070121/6c267aa9/attachment.pgp