-(defpackage #:mdw.runlisp
- (:use #:common-lisp #+cmu #:extensions)
- (:export #:*lisp-interpreter* #:*command-line-strings*))
-(in-package #:mdw.runlisp)
-
-#+clisp
-(progn
- (defvar *lisp-interpreter*)
- (defvar *command-line-strings*)
- (let ((args (coerce (ext:argv) 'list)))
- (setf *lisp-interpreter* (car args))
- (setf *command-line-strings* (nthcdr 7 args))))
+(defpackage #:runlisp
+ (:use #:common-lisp)
+ (:export #:*lisp-interpreter* #:*command-line-strings* #:run))
+(defvar runlisp:*command-line-strings* '("<interactive>"))