Fix a problem with DEFINE-PROGRAM where the exit code of the program can be governed by the return value of PERFORM-PROGRAM.