archive/src/dump-excl.lisp

   1 ;;load this file to dump maxima under excl
   2 ;;Doing this twice will result in less compiler garbage in the image.
   3 ;;thanks to  rimey@ucbarpa.Berkeley.EDU (Ken Rimey)
   4 ;;for many things in this file.
   5
   6
   7 (setq si:*source-file-types* '("cl" "lsp" "lisp"))
   8 (setq si:*load-search-list*
   9       `(,(make-pathname :type "fasl")
  10         ,(make-pathname :type "lisp")
  11         excl::*library-code-fasl-pathname*))
  12 (setq si:*require-search-list* si:*load-search-list*)
  13
  14 (load "sysdef.lisp")
  15 (proclaim '(optimize (speed 3) (safety 0)))
  16 (make::make :maxima :compile t)
  17
  18
  19 (in-package "MAXIMA")
  20 (export 'macsyma-top-level)
  21
  22 (defun macsyma-top-level ()
  23   (let ((*package* (find-package "MAXIMA")))
  24     (loop (format t "Top level.~%")
  25           (catch 'macsyma-quit
  26             (and (excl:errorset (continue) t)
  27                  (break))))))
  28
  29 (defun top-level::eof-command ()
  30   (throw 'macsyma-quit nil))
  31
  32 (defun bye ()
  33   (excl:exit))
  34
  35 (excl:gc)
  36 (excl:dumplisp :name "maxima"
  37                :restart-function #'macsyma-top-level
  38                :read-init-file nil)