; ; :mklist ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; Example ;; (:mklist 4 (oneof 50 60)) ;; (:mklist 4 (oneof (:mkscale 50 'pentatonic 10))) (define-macro (:mklist . args) `(make-list-with-proc ,(car args) (lambda (x) ,(cadr args) )))