84 |
(t ;; if ANY header or license information is printed by the |
(t ;; if ANY header or license information is printed by the |
85 |
;; program, then the following License and Enhancement notice |
;; program, then the following License and Enhancement notice |
86 |
;; must be printed (see License). |
;; must be printed (see License). |
87 |
(format t "GCL (GNU Common Lisp) ~A~%~a~%~a~%~a~%~a~%" "DATE" |
(format t "GCL (GNU Common Lisp) ~A~%~a~%~a~%~%~a~%" "DATE" |
88 |
"Licensed under GNU Library General Public License" |
"Licensed under GNU Library General Public License" |
89 |
"Contains Enhancements by W. Schelter." |
"Contains Enhancements by W. Schelter" |
90 |
"The function (apropos <some string>) gives symbols containing that string." |
"Use (help) to get some basic information on how to use GCL."))) |
|
"These functions describe those symbols: (describe 'symbol), (help 'symbol)."))) |
|
91 |
(setq si::*ihs-top* 1) |
(setq si::*ihs-top* 1) |
92 |
(in-package 'system::user) (incf system::*ihs-top* 2) |
(in-package 'system::user) (incf system::*ihs-top* 2) |
93 |
(funcall system::*old-top-level*)) |
(funcall system::*old-top-level*)) |