Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

[44a136]: maxima-pre59 / src / init_maxima.lsp Maximize Restore History

Download this file

init_maxima.lsp    102 lines (91 with data), 3.6 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
(in-package "COMPILER")
(in-package "SYSTEM")
(defvar *command-args* nil)
(in-package "USER")
(in-package "LISP")
(lisp::in-package "SLOOP")
;;Appropriate for Austin
(setq SYSTEM:*DEFAULT-TIME-ZONE* 6)
(in-package "USER")
(load "../gcl-tk/tk-package.lsp")
(progn (allocate 'cons 100) (allocate 'string 40)
(system:init-system) (gbc t)
#+gmp (defun si::multiply-bignum-stack (n) "nothing")
(si::multiply-bignum-stack 25)
(or lisp::*link-array*
(setq lisp::*link-array*
(make-array (ash 1 11) :element-type 'string-char :fill-pointer 0)))
(si::use-fast-links t)
(setq compiler::*cmpinclude* "<cmpinclude.h>") (load #"../cmpnew/cmpmain.lsp") (gbc t)
(load #"../cmpnew/lfun_list.lsp")
(gbc t) (load #"../cmpnew/cmpopt.lsp") (gbc t)
(load #"../lsp/auto.lsp") (gbc t)
(when compiler::*cmpinclude-string*
(with-open-file (st "../h/cmpinclude.h")
(let
((tem (make-array (file-length st) :element-type 'standard-char
:static t)))
(if (si::fread tem 0 (length tem) st)
(setq compiler::*cmpinclude-string* tem)))))
;;compile-file is in cmpmain.lsp
(setf (symbol-function 'si:clear-compiler-properties)
(symbol-function 'compiler::compiler-clear-compiler-properties))
; (load "../lsp/setdoc.lsp")
(setq system::*old-top-level* (symbol-function 'system:top-level))
(defvar si::*lib-directory* (namestring "../"))
(defun system::gcl-top-level (&aux tem)
(si::set-up-top-level)
(if (si::get-command-arg "-compile")
(let (;(system::*quit-tag* (cons nil nil))
;(system::*quit-tags* nil) (system::*break-level* '())
;(system::*break-env* nil) (system::*ihs-base* 1)
;(system::*ihs-top* 1) (system::*current-ihs* 1)
(*break-enable* nil))
(system:error-set
'(progn
(compile-file (si::get-command-arg "-compile")
:output-file
(or (si::get-command-arg "-o")
(si::get-command-arg "-compile"))
:o-file
(cond ((equalp
(si::get-command-arg "-o-file")
"nil") nil)
((si::get-command-arg "-o-file" t))
(t t))
:c-file (si::get-command-arg "-c-file" t)
:h-file (si::get-command-arg "-h-file" t)
:data-file (si::get-command-arg "-data-file" t)
:system-p (si::get-command-arg "-system-p" t))))
(bye (if compiler::*error-p* 1 0))))
(cond ((si::get-command-arg "-batch")
(setq si::*top-level-hook* 'bye))
((si::get-command-arg "-f"))
(t ;; if ANY header or license information is printed by the
;; program, then the following License and Enhancement notice
;; must be printed (see License).
(format t "GCL (GNU Common Lisp) ~A~%~a~%~a~%" "DATE"
"Licensed under GNU Library General Public License"
"Contains Enhancements by W. Schelter")))
(setq si::*ihs-top* 1)
(in-package 'system::user) (incf system::*ihs-top* 2)
(funcall system::*old-top-level*))
(setq si::*gcl-version* 600)
(defun lisp-implementation-version nil (format nil "GCL-1-~a" si::*gcl-version*))
(terpri)
(setq si:*inhibit-macro-special* t)
;(setq *modules* nil)
(gbc t) (system:reset-gbc-count)
(allocate 'cons 200)
(defun system:top-level nil (system::gcl-top-level))
(unintern 'system)
(unintern 'lisp)
(unintern 'compiler)
(unintern 'user)
(si::chdir "/home/wfs/cvs/maxima/src")(si::save-system "saved_maxima")
(if (fboundp 'user-init) (user-init))
(si::set-up-top-level)
(in-package "USER")
(system:save-system "saved_gcl") (bye)
(defun system:top-level nil (system::gcl-top-level))
(save "saved_gcl") (bye))