optparse: Various enhancements.

[lisp] / sys-base.lisp

diff --git a/sys-base.lisp b/sys-base.lisp
index fdbf4fb6b7ab4852f0dfecf3710ced94600af45a..47ef2fb325d7329c807f50a796e5b3aae52f5d98 100644 (file)
--- a/sys-base.lisp
+++ b/sys-base.lisp
@@ -45,9 +45,10 @@ (defun exit (&optional (code 0))
         (abort))))
 
 #+cmu
         (abort))))
 
 #+cmu

-(defun hard-exit (code)
+(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."
   "Stops the program immediately in its tracks.  Does nothing else.  Use
 after fork, for example, to avoid flushing buffers."

+  (declare (type (unsigned-byte 32) code))

   (unix::void-syscall ("_exit" c-call:int) code))
 
 #+cmu
   (unix::void-syscall ("_exit" c-call:int) code))
 
 #+cmu