Plaster

(defun message-loop () (catch 'loop-die (loop (catch 'loop-continue (do-some-stuff)))))