; this is pretty much like mapc/apply
(defmacro run (f &rest args)
  "run a function with remaining arguments"
  `(apply ,f (list ,@args)))

(defmacro sideeffect (func &rest body)
  (if (not func)
      (setq func 'identity))
  (run func body)
  `(try (identity ,@body) nil))