LispForm uses Mathematica pattern matching programming to translate
some Mathematica expressions to lisp syntax.

LispForm.mma can be found in
ftp://ftp.upf.es/pub/stat/cosetes/LispForm/LispForm.mma
together with this text file.

The current version is really incomplete, I'm adding rules as I need
them, but ringht now you can convert most Mathematica expressions 
to a string your lisp interpreter can read and store.

For example, instead of the ugly expression

In[27]:= ListCoefs[2,2]

           2        2 2              2        2           2       4
Out[27]= {a  (-1 + a ) , 2 a (1 - 3 a ) (1 - a ), 1 - 12 a  + 15 a , 
 
                  2            2
>    4 a (-2 + 5 a ), -2 + 15 a , 6 a, 1}

using LispForm

In[28]:= LispForm[%]

you obtain the much more beatiful one

Out[28]= (list (* (sqr a) (sqr (1- (sqr a))))(* 2 a (* (+ 1 (* -3 (sqr\
 
>    a))) (+ 1 (- (sqr a)))))(+ 1 (* -12 (sqr a)) (* 15 (expt a 4\
 
>    )))(* 4 a (+ -2 (* 5 (sqr a))))(+ -2 (* 15 (sqr a)))(* 6 a)\
 
>    1) 


If you type in Mathematica

In[29]:= LispForm[some list of number pairs] >> somefile.lsp

you will get 

"(list (list -1.2 0) (list -1.1 0) (list -1. 1.2326e-32) (list -0.9 0.01)\
  (list -0.8 0.04) (list -0.7 0.09) (list -0.6 0.16) (list -0.5 0.25)\
  (list -0.4 0.36) (list -0.3 0.49) (list -0.2 0.64) (list -0.1 0.81)\
  (list -2.77556e-17 1.) (list 0.1 0.81) (list 0.2 0.64) (list 0.3 0.49)\
  (list 0.4 0.36) (list 0.5 0.25) (list 0.6 0.16) (list 0.7 0.09) (list\
  0.8 0.04) (list 0.9 0.01) (list 1. 1.2326e-32) (list 1.1 0) (list 1.2 0\
  )) "

in your file somefile.lsp. You migth need to supress the quotes before
using the file :<)

Frederic Udina 
udina@upf.es
http://libiya.upf.es/