From 2eef0e68e7d83a28d278c02713e6ba8fb80dab94 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 1 Jun 2006 16:34:57 +0100
Subject: [PATCH] runlisp: A number of things.

  * Make sure *command-line-strings* is actually bound to a value.  Life
    is too unpleasant if it isn't.

  * CMU needs the verbosity parameters set later than the other Lisps,
    so move the code into a function and call it in the appropriate
    places.

  * Use CMU's *command-line-strings* symbol; otherwise we get doomy
    symbol conflicts.
---
 runlisp.lisp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/runlisp.lisp b/runlisp.lisp
index 13b8031..902b6ad 100644
--- a/runlisp.lisp
+++ b/runlisp.lisp
@@ -24,12 +24,13 @@
 ;;; Package.
 (defpackage #:runlisp
   (:use #:common-lisp)
-  (:export #:*lisp-interpreter* #:*command-line-strings* #:run))
+  (:export #:*lisp-interpreter* #:*command-line-strings* #:run)
+  #+cmu (:import-from #:ext #:*command-line-strings*))
 (in-package #:runlisp)
 
 ;;; Variables.
 (defvar *lisp-interpreter*)
-(defvar *command-line-strings*)
+(defvar *command-line-strings* nil)
 
 ;;; Ignore shebang lines.
 (set-dispatch-macro-character #\# #\!
@@ -40,12 +41,15 @@
 
 ;;; Shut up, you bastard.
 #+cmu (setf ext:*gc-verbose* nil)
-(setf *compile-verbose* nil
-      *load-verbose* nil
-      *load-print* nil)
+(defun suyb ()
+  (setf *compile-verbose* nil
+	*load-verbose* nil
+	*load-print* nil))
+#-cmu (suyb)
 
 ;;; Find command-line arguments and run the program.
 (defun run ()
+  #+cmu (suyb)
   #+cmu (let ((args lisp::lisp-command-line-list))
 	  (setf *lisp-interpreter* (pop args))
 	  (assert (string= (pop args) "-core"))
-- 
2.11.0