-#+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."
- (declare (type (unsigned-byte 32) code))
- (unix::void-syscall ("_exit" c-call:int) code))
-
-#+cmu
-(defvar *program-name* (pathname-name (car *command-line-strings*))