* 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.
;;; 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 #\# #\!
;;; 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 (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"))