The preferred recognizer for the mach-o stobj
Function: good-mach-o-p
(defun good-mach-o-p (mach-o) (declare (xargs :stobjs mach-o) (ignore mach-o)) t)