[CM] play-pats

[First Last]

------=_Part_63616_27947670.1182726580847
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Would appreciate any help...

When attempting to run the following code from Notes from the Metalevel's
dictionary:

CM> (define (play-pats pats trope reps rate)
  (process with dur = (* rate 2.5)
           repeat reps
           for len = (pick 8 12 16)
           for pat = (make-instance (next pats)
                                    :keynums trope
                                    :for len)
           each k in (next pat #t) as x from 0 by rate
           output (new midi :time (+ (now) x)
                       :keynum k
                       :duration dur)
           wait (* rate len)))

;;; a pattern of pattern class names
(define pcns
  (new weighting :of '((heap :weight 2) line cycle
                    palindrome rotation)))

, I receive the following error:

LOOP ERROR: 'each' does not support initializations.
clause context: 'EACH K IN (NEXT PAT T)'

Anyone?

------=_Part_63616_27947670.1182726580847
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

<div>Would appreciate any help...</div>
<div>&nbsp;</div>
<div>When attempting to run the following code from Notes from the Metalevel&#39;s dictionary:</div>
<div>&nbsp;</div>
<div>CM&gt; (define (play-pats pats trope reps rate)<br>&nbsp; (process with dur = (* rate 2.5)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; repeat reps<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for len = (pick 8 12 16)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for pat = (make-instance (next pats)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :keynums trope
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :for len)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; each k in (next pat #t) as x from 0 by rate<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output (new midi :time (+ (now) x)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :keynum k<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :duration dur)
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wait (* rate len)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>;;; a pattern of pattern class names<br>(define pcns<br>&nbsp; (new weighting :of &#39;((heap :weight 2) line cycle<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; palindrome rotation)))</div>
<div>&nbsp;</div>
<div>, I&nbsp;receive the following error:</div>
<div><br>LOOP ERROR: &#39;each&#39; does not support initializations.<br>clause context: &#39;EACH K IN (NEXT PAT T)&#39;</div>
<div>&nbsp;</div>
<div>Anyone?</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>

------=_Part_63616_27947670.1182726580847--