Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 07e69ade2d
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (13 sloc) 0.527 kb
--- init_gcl.lsp.in Wed Apr 7 23:12:55 2004
+++ init_gcl.lsp.in.tpd Wed Apr 7 23:13:25 2004
@@ -84,8 +84,8 @@
(bye (if (or compiler::*error-p* (equal result '(nil))) 1 0))))
(cond ((si::get-command-arg "-batch")
(setq si::*top-level-hook* 'bye))
- ((si::get-command-arg "-f"))
- (t (format t si::*system-banner*)))
+ ((si::get-command-arg "-f")))
+; (t (format t si::*system-banner*)))
(setq si::*ihs-top* 1)
(in-package 'system::user) (incf system::*ihs-top* 2)
(funcall system::*old-top-level*))
Jump to Line
Something went wrong with that request. Please try again.