;; This file:
;;   http://angg.twu.net/.maxima/maxima-init.lisp.html
;;   http://angg.twu.net/.maxima/maxima-init.lisp
;;           (find-angg ".maxima/maxima-init.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>

(defun myfoo () "mybar")

(defun $printtostring (&rest objs)
  (with-output-to-string (*standard-output*)
    (apply #'$print objs)))


#|
* (eepitch-sbcl)
* (eepitch-kill)
* (eepitch-sbcl)
(load "maxima-init.lisp")
(myfoo)

* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
printtostring('at(f(x),x=a), 42);

to_lisp();
  (myfoo)
  (to-maxima)

|#