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.

diff --git a/runlisp.lisp b/runlisp.lisp
index 13b8031..902b6ad 100644 (file)
--- 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"))