daly / axiom

Axiom is a free, open source computer algebra system

This URL has Read+Write access

Merge branch 'master' of /research/silver
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
raw blame history 
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*))