+(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."
+ (declare (type (unsigned-byte 32) code))
+ #+cmu (unix::void-syscall ("_exit" c-call:int) code)
+ #+(or clisp ecl) (ext:quit code))