Macro With-Progress-Bar

( with-progress-bar (min max &rest args &key (title progress) (verbose? t) (desired-interface nil interface-supplied?) (determinate-p t) &allow-other-keys) &body < body > )