archive/src/compile-clisp.lisp

   1
   2 (defpackage "SI"
   3     (:use "COMMON-LISP"))
   4
   5 (if (find-package "EXT")
   6     (use-package "EXT"))
   7
   8 (push :main-files-loaded *features*)
   9 (load "sysdef.lisp")
  10 (load "make.lisp")
  11
  12
  13 (defun compile-maxima ()
  14   (make::make :maxima :compile t)
  15   (if (find-package "REGEXP")
  16     (progn
  17       (compile-file "clisp-regex")
  18       (compile-file "cl-info") ))
  19 )
  20
  21 (defun save-maxima ()
  22   (make::make :maxima )
  23   (if (find-package "REGEXP")
  24     (progn
  25       (load "clisp-regex")
  26       (load "cl-info") ))
  27   (gc)
  28   (saveinitmem "maxima-clisp.mem"
  29                :init-function #'user::run)
  30 )
  31
  32 (in-package "MAXIMA")
  33
  34 (import '(system::getenv system::socket-connect) "MAXIMA")
  35
  36
  37 (defun getpid ( &aux tem)
  38
  39    (cond ((fboundp 'sys::program-id)
  40            (sys::program-id))
  41   ; ;under windows above does not work.
  42          ((consp (setq tem (errset (system::getenv "PID"))))
  43           (read-from-string (car tem)))
  44          (t (format t "using fake value for pid") -1))
  45   )
  46
  47
  48 (or (fboundp 'commands1.orig)
  49   (setf (fdefinition 'commands1.orig) (fdefinition 'sys::commands1)))
  50
  51 ;;add the quit maxima for the clisp debugger.
  52 (defun sys::commands1 ()
  53     (append (list "
  54 Quit to top    :q       Quit to MAXIMA top level"
  55                 (cons ":q" #'(lambda () (throw 'macsyma-quit nil)))
  56           )
  57           (commands1.orig)
  58 )
  59 )
  60
  61 (defun $system (&rest x) (system::run-shell-command  (apply '$sconcat x)))
  62
  63
  64
  65 ;; compile maxima
  66 ;(make::make :maxima :compile t)
  67 ;(load "init_max1.lisp")
  68 ;; load it
  69 ;(make::make :maxima )
  70 ;(savemem "maxima.clisp")