in main you want to call clean-up-and-quit in all cases of exit #4
Description
something like
(defun main () (let ((status 1)) (unwind-protect (progn (main-1) (setf status 0)) (clean-up-and-quit status)))){{ message }}
something like
(defun main () (let ((status 1)) (unwind-protect (progn (main-1) (setf status 0)) (clean-up-and-quit status))))