optimize #:when #t case in ~for/common