Calls (regclr -1), which clears all the runt registers.
(regclr -1)
(define (regclrall) (regclr -1))