/[gcl]/gcl/unixport/init_gcl.lsp.in
ViewVC logotype

Diff of /gcl/unixport/init_gcl.lsp.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by mjthomas, Mon Dec 30 02:04:17 2002 UTC revision 1.8 by mjthomas, Mon Dec 30 04:22:11 2002 UTC
# Line 84  Line 84 
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*))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26