Plaster
New
List
Login
common-lisp
default
anonymous
2024.04.25 09:23:55
(defmacro with-retry ((&key (restart-name 'retry) report) &rest body) `(loop do (restart-case (return (progn ,@body)) (,restart-name () ,@(when report `(:report ,report))))))
Raw
Annotate
Repaste
Edit