src/maxima-build.lisp

   1 #+lispworks
   2 (setq hcl:*packages-for-warn-on-redefinition*
   3     (remove-if (lambda (package-name)
   4                  (member package-name
   5                          '("HARLEQUIN-COMMON-LISP"
   6                            ;"CL-USER"
   7                            )
   8                          :test #'string-equal))
   9                *packages-for-warn-on-redefinition*))
  10 #+lispworks (in-package "HARLEQUIN-COMMON-LISP")
  11 #+lispworks (defun getenv (x) (LW:ENVIRONMENT-VARIABLE x))
  12 #+lispworks (in-package "CL-USER")
  13
  14 (load "../lisp-utils/defsystem.lisp")
  15 #+ecl (load "maxima-package.lisp")
  16 #+ecl
  17 (compile 'maxima::make-unspecial
  18          '(lambda (s)
  19            (when (symbolp s)
  20              (format t "~%;;; Declaring ~A as NOT SPECIAL" s)
  21              (ffi::c-inline (s) (:object) :object
  22                             "((#0)->symbol.stype = stp_ordinary, #0)"
  23                             :one-liner t))))
  24
  25 (defun maxima-compile ()
  26   (mk:oos "maxima" :compile))
  27 (defun maxima-load ()
  28   (mk:oos "maxima" :load))
  29
  30 (defun maxima-dump ()
  31   #+clisp (ext:saveinitmem "binary-clisp/maxima.mem" :init-function (function cl-user::run))
  32   #+sbcl (sb-ext:save-lisp-and-die "binary-sbcl/maxima.core" :toplevel #'cl-user::run)
  33   #+gcl (si:save-system "binary-gcl/maxima")
  34   #+cmu (extensions:save-lisp "binary-cmucl/maxima.core" :init-function 'cl-user::run)
  35   #+scl (extensions:save-lisp "binary-scl/maxima.core" :init-function 'cl-user::run)
  36   #+allegro (excl:dumplisp :name "binary-acl/maxima.dxl")
  37   #+lispworks (hcl:save-image "binary-lispworks/maxima" :restart-function 'cl-user::run)
  38   #+(and openmcl (not 64-bit-target)) (ccl:save-application "binary-openmcl/maxima" :toplevel-function 'cl-user::run)
  39   #+(and openmcl 64-bit-target) (ccl:save-application "binary-ccl64/maxima" :toplevel-function 'cl-user::run)
  40   #-(or clisp sbcl gcl cmu scl allegro lispworks ccl)
  41   (format t "Sorry, I don't know how to dump an image on this Lisp"))
  42