to_lisp();
(format t "test");

(format nil "test");

(to-maxima)

to_lisp();
(format t "test");
(format nil "test")
(to-maxima)