Progress Pacifiers

variable *SILENT-PROGRESS?* 

macro NOTING-ACTIVITY : (string &body body) 

function NOTE-ACTIVITY : () 

macro NOTING-NUMERIC-PROGRESS : (string &body body) 

function NOTE-NUMERIC-PROGRESS : (num) 

macro NOTING-PERCENT-PROGRESS : (string &body body) 

function NOTE-PERCENT-PROGRESS : (index max)