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