ifbeat-lt   macro

;
;
;; IFBEAT-LT X Y
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; if beat less than X
;
; (ifbeat-lt denominator numerator (do ...) (else do ....))
;
; same as (let ((n (if (< (modulo beat 8) 4) 0 2))) 
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(impc:aot:do-or-emit
    (define-macro (ifbeat-lt x y args . elseargs)
    `(if (< (modulo beat ,x) ,y)
            ,args
            ,@elseargs))
)