(defmacro with-retry ((&key (restart-name 'retry) report) &rest body)
  `(loop
     do (restart-case (return (progn ,@body))
	  (,restart-name ()
	    ,@(when report `(:report ,report))))))