runlisp: A number of things.

[runlisp] / runlisp.lisp

diff --git a/runlisp.lisp b/runlisp.lisp
index 13b8031b06348b87002a410ab56f1ac3426db075..902b6ad5290a104bab9b6bcc894a911bca0b1e89 100644 (file)
--- a/runlisp.lisp
+++ b/runlisp.lisp
@@ -24,12 +24,13 @@
 ;;; Package.
 (defpackage #:runlisp
   (:use #:common-lisp)
 ;;; 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*)
 (in-package #:runlisp)
 
 ;;; Variables.
 (defvar *lisp-interpreter*)

-(defvar *command-line-strings*)
+(defvar *command-line-strings* nil)

 
 ;;; Ignore shebang lines.
 (set-dispatch-macro-character #\# #\!
 
 ;;; Ignore shebang lines.
 (set-dispatch-macro-character #\# #\!


@@ -40,12 +41,15 @@ (set-dispatch-macro-character #\# #\!
 
 ;;; Shut up, you bastard.
 #+cmu (setf ext:*gc-verbose* nil)
 
 ;;; 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 ()
 
 ;;; 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"))
   #+cmu (let ((args lisp::lisp-command-line-list))
          (setf *lisp-interpreter* (pop args))
          (assert (string= (pop args) "-core"))