cypress

(setf sb-impl::*default-external-format* :utf-8)
(asdf:oos 'asdf:load-op 'cypress)
(sb-ext:save-lisp-and-die "cypressmac"
			  :toplevel
			  (lambda ()
			    (eval-when
				(:compile-toplevel :load-toplevel :execute)
			      (sb-int:set-floating-point-modes :traps nil))
			    (tmt:with-body-in-main-thread (:blocking t)
			      (setf xelf::*executable* t)
			      (setf xelf::*suppress-warnings* nil)
			      (asdf:operate 'asdf:load-op :cocoahelper)
			      (lispbuilder-sdl-cocoahelper::cocoahelper-init)
			      (cypress:cypress))
			    0)
			  :executable t)