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