PasteRack.org
Paste # 55941
2019-06-08 21:40:05

Fork as a new paste.

Paste viewed 155 times.


Embed:

; 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))