replaced TAB characters with spaces
improved handler-bind in run-atomic and run-orelse
replaced binary function (defun run-orelse2 (func1 func2)
  with n-ary functions (defun run-orelse (&rest funcs))
  and (defun run-orelse-tx (&rest txs)).
  The n-ary functions are faster with 3 or more args, but slower with 2