PasteRack.org
Paste # 20681
2019-06-08 21:38:41

Fork as a new paste.

Paste viewed 103 times.


Embed:

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

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