;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
(defpackage #:mdw.runlisp
- (:use #:common-lisp #:extensions)
+ (:use #:common-lisp #+cmu #:extensions)
(:export #:*lisp-interpreter* #:*command-line-strings*))
(defpackage #:mdw.sys-base
- (:use #:common-lisp #:extensions #:mdw.runlisp)
+ (:use #:common-lisp #+cmu #:extensions #:mdw.runlisp)
(:export #:exit #:hard-exit #:*program-name* #:*command-line-strings*))
(in-package #:mdw.sys-base)
#+cmu
(defun exit (&optional (code 0))
"Polite way to end a program. If running in an interactive Lisp, just
-return to the top-level REPL."
+ return to the top-level REPL."
(if *batch-mode*
(throw 'lisp::%end-of-the-world code)
(progn
#+cmu
(defun hard-exit (&optional (code 0))
"Stops the program immediately in its tracks. Does nothing else. Use
-after fork, for example, to avoid flushing buffers."
+ after fork, for example, to avoid flushing buffers."
(declare (type (unsigned-byte 32) code))
(unix::void-syscall ("_exit" c-call:int) code))