Generating CL expressions



Can I generate Lisp expressions from Maxima definitions?  I can
generate Fortran with fortran(foo); but there doesn't seem to be a
lisp(foo).

x : (a + b)^2;

					  2
(D7) 				   (b + a)
(C8) fortran(x);

      (b+a)**2
(D8) 				     DONE


Dreaming:  
(C9) lisp(x);
    (expt (+ a b) 2)
(D9)                                 DONE DREAMING


seems a bit ironic if this function or equivalent doesn't exist.


(side point: to_lisp() exits Maxima; is that supposed to happen?)

Liam