daly / axiom

Axiom is a free, open source computer algebra system

This URL has Read+Write access

daly (author)
Sat Jul 25 23:34:50 -0700 2009
commit  10fb9b914bd34291c59928218c3a6d22d19cbcf8
tree    8921a596bc13d9602e5c14c64e5e16eebe788d88
parent  0164fcc05b450d9559541b5285ddb4d5f3eb9d31 parent  f3a65067e5ffbb1fb23a09b589b7a4f8b20b138e
axiom / zips / gcl-2.4.1.unixport.init_gcl.lsp.patch
100644 25 lines (24 sloc) 1.193 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
--- init_gcl.lsp Fri May 11 01:56:54 2001
+++ init_gcl.lsp.tpd Wed Dec 11 23:09:55 2002
@@ -72,12 +72,15 @@
   (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")))
+ ((si::get-command-arg "-toploop")
+ (progn (load "toploop" :verbose nil) (toploop)))
+ (t nil))
+;; (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*))