[CM] uh-oh

[Dave Phillips]

Greetings:

  I rebuilt everything using Rick's latest CM package. Alas, some things
headed south again. The CLM/Snd stuff is broken again, but weirder is
this stuff:


* (compile-file "/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.cm")

Python version 1.0, VM version Intel x86 on 06 DEC 02 10:49:48 am.
Compiling: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.cm 02 DEC
02 09:26:25 am

Converted TESTIT.
Compiling DEFINE (TESTIT STF LEN NTS): 
Compiling Creation Form for #<KERNEL::CLASS-CELL MIDI>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL HEAP>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL RANDOM>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CYCLE>: 
Byte Compiling Top-Level Form: 

/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.x86f written.
Compilation finished in 0:00:00.

#p"/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.x86f"
NIL
NIL
* (load "/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.x86f"
)

; Loading #p"/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.x86f".


Unknown keyword: :SIZE

Restarts:
  0: [CONTINUE] Return NIL from load of
"/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/cmn-test.x86f".
  1: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

("DEFUN LOAD" "testit.cmn" 268433968 4)[:OPTIONAL]
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:
  target:code/load.lisp.
0] 1
* (in-package :clm)

#<The CLM package, 1733/2392 internal, 770/1184 external>
* (start-snd)

Error in function UNIX::SIGSEGV-HANDLER:  Segmentation Violation at
#x40338BF8.

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(UNIX::SIGSEGV-HANDLER #<unused-arg>
                       #<unused-arg>
                       #.(SYSTEM:INT-SAP #x3FFFEAE0))
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:
  target:code/signal.lisp.
0] 0
*



  Here's the cmn-test.cm code I'm running. It's been working fine until
this build :


(define (testit stf len nts)
  (let ((nts (new heap :notes nts))
        ;; choose half, quarter, or two eighths
        ;; the repetition 'weights' the selection
        (rhy (new random
               :of (list 2 1 1 1 (new cycle :of '(1/2 1/2)) (new cycle
:of '(1/2 1/2)) ))))
    (process while (< (now) len)
             for n = (next nts)
             for r = (next rhy)
             output (new midi :time (now)
                         :duration r
                         :keynum n
                         :channel stf)
             wait r)))

(define staffs
  '((0 :name "Viola" :clef :alto :meter (4 4))
    (1 :name "Oboe" :clef :treble :meter (4 4))
    (2 :name "Flute" :clef :treble :meter (4 4))))

(events (list (testit 0 32 '(g2 a bf c3 d f))
              (testit 1 32 '(a3 bf c4 d e g))
              (testit 2 32 '(bf4 c5 d f g a)))
	(new seq :name 'two-ways))
(events #!two-ways "cmn-test.cmn" :staffing staffs :size 20 :title
"Trio")
(events #!two-ways "cmn-test.mid")




   Has something significant changed ? I'll check the CCRMA ftp for
updates...

Best regards,

== Dave Phillips

	The Book Of Linux Music & Sound at http://www.nostarch.com/lms.htm
	The Linux Soundapps Site at http://linux-sound.org