89 |
;; must be printed (see License). |
;; must be printed (see License). |
90 |
(format t "GCL (GNU Common Lisp) ~A~%~a~%~a~%~%~a~%" "@LI-VERS@" |
(format t "GCL (GNU Common Lisp) ~A~%~a~%~a~%~%~a~%" "@LI-VERS@" |
91 |
"Licensed under GNU Library General Public License" |
"Licensed under GNU Library General Public License" |
92 |
"Contains Enhancements by W. Schelter" |
"Dedicated to the memory of W. Schelter" |
93 |
"Use (help) to get some basic information on how to use GCL."))) |
"Use (help) to get some basic information on how to use GCL."))) |
94 |
(setq si::*ihs-top* 1) |
(setq si::*ihs-top* 1) |
95 |
(in-package 'system::user) (incf system::*ihs-top* 2) |
(in-package 'system::user) (incf system::*ihs-top* 2) |