Plaster
New
List
Login
common-lisp
default
anonymous
2018.06.12 00:34:09
(defmacro retrying (n &body body) (alexandria:with-gensyms (i) (alexandria:once-only (n) `(block out (dotimes (,i ,n) (block loop (handler-bind ((error (lambda (c) (declare (ignore c)) (return-from loop)))) ,@body (return-from out)))) (format t "Exceeded!")))))
Raw
Annotate
Repaste
Edit