-(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 #:mdw.sys-base
- (:use #:common-lisp #+cmu #:extensions #+cmu #:mdw.runlisp)
- (:export #:exit #:hard-exit #:*program-name* #:*command-line-strings*)
- (:import-from #:mdw.runlisp #:*lisp-interpreter* #:*command-line-strings*)