(si::chdir "/home/wfs/cvs/maxima/src")
(load "maxima-package.lisp")
(setq maxima::*maxima-directory* (namestring (truename "../")))