[CM] debuggin ligeti

[Dave Phillips]

Greetings:

  I'm trying to figure how to fix the ligeti.cm example in CM 2.4.0.
I've copied the output of the compile attempt below, can anyone tell me
where to start the rewrite ? TIA !

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

[dlphilp@localhost bin]$ lisp -core cm.core 
* (compile-file "/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm")

Python version 1.0, VM version Intel x86 on 11 NOV 02 03:22:31 pm.
Compiling: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm 19 OCT 02
02:18:18 pm

Converted EIGHTH-TIME.
Compiling DEFINE (EIGHTH-TIME NUMBER-OF-EIGHTHS): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL MODE>: 

File: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm

In: DEFINE (MAKE-WHITE-FG-NOTES NOTE)
  (NEW TRANSPOSER :OF (NEW CYCLE :OF WHITE-FG-STEPS) :ON ...)
Error: (during macroexpansion)

Error in function EXPAND-INITS:
   ':ON' is not an initialization for #<STANDARD-CLASS TRANSPOSER
{282A9B7D}>.

Converted MAKE-WHITE-FG-NOTES.
Compiling DEFINE (MAKE-WHITE-FG-NOTES NOTE): 

File: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm

In: DEFINE (MAKE-WHITE-FG-NOTES NOTE)
  (LET ((STEP #))
    (NEW TRANSPOSER :OF (NEW CYCLE :OF WHITE-FG-STEPS) :ON ...))
Note: Variable STEP defined but never used.

Converted MAKE-WHITE-FG-RHYTHMS.
Compiling DEFINE (MAKE-WHITE-FG-RHYTHMS): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CYCLE>: 
Byte Compiling Top-Level Form: 
Converted MAKE-BLACK-FG-NOTES.
Compiling DEFUN MAKE-BLACK-FG-NOTES: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TRANSPOSER>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL LINE>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL RANGE>: 

File: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm

In: DEFUN MAKE-BLACK-FG-RHYTHMS
  (NEW CYCLE 3 5 3 ...)
Error: (during macroexpansion)

Error in function EXPAND-INITS:
   '3' is not an initialization for #<STANDARD-CLASS CYCLE {282B277D}>:
(3 5 3
                                                                        
5 5
                                                                        
...).

Converted MAKE-BLACK-FG-RHYTHMS.
Compiling DEFUN MAKE-BLACK-FG-RHYTHMS: 

File: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm

In: DEFPROCESS FG-MONO
  (DEFPROCESS FG-MONO
              (MODE KEYNUMS RHYTHMS)
              (PROCESS FOR KEY = (KEYNUM # :FROM MODE) ...))
--> DEFPARAMETER PROGN SETQ SETQ LAMBDA 
==>
  #'(LAMBDA (&REST (MODE KEYNUMS RHYTHMS))
      (PROCESS FOR KEY = (KEYNUM # :FROM MODE) ...))
Error: Lambda-variable is not a symbol: (MODE KEYNUMS RHYTHMS).


In: DEFPROCESS DESORDRE-W/OCTAVES
  (DEFPROCESS DESORDRE-W/OCTAVES
              (MODE NTES RHYS)
              (LET (# # MODE-DEGREE)
                (LIST # #)))
--> DEFPARAMETER PROGN SETQ SETQ LAMBDA 
==>
  #'(LAMBDA (&REST (MODE NTES RHYS))
      (LET (# # MODE-DEGREE)
        (LIST # #)))
Error: Lambda-variable is not a symbol: (MODE NTES RHYS).

Byte Compiling Top-Level Form: 

File: /home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.cm

In: DEFPROCESS DESORDRE-VOICES
  (DEFPROCESS DESORDRE-VOICES
              (MODE NTES RHYS CHORD VOIMAP)
              (LET (# FG-TIME FG-8THS MODE-DEGREE)
                (LIST # #)))
--> DEFPARAMETER PROGN SETQ SETQ LAMBDA 
==>
  #'(LAMBDA (&REST (MODE NTES RHYS CHORD VOIMAP))
      (LET (# FG-TIME FG-8THS MODE-DEGREE)
        (LIST # #)))
Error: Lambda-variable is not a symbol: (MODE NTES RHYS CHORD VOIMAP).

Byte Compiling Top-Level Form: 

Compilation unit finished.
  5 errors
  1 note


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

#p"/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.x86f"
T
T
 
* (load "/home/dlphilp/CCRMA/cm-2.4.0/etc/examples/ligeti.x86f")

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


Error in function C::DO-CALL:  Execution of a form compiled with errors:
 #'(LAMBDA (&REST (MODE KEYNUMS RHYTHMS))
     (PROCESS FOR
              KEY
              =
              (KEYNUM (NEXT KEYNUMS) :FROM MODE)
              FOR
              RHY
              =
              (EIGHTH-TIME (NEXT RHYTHMS))
              OUTPUT
              (NEW MIDI TIME (NOW) KEYNUM KEY AMPLITUDE FG-AMP DURATION
RHY)
              WAIT
              RHY
              UNTIL
              (EOP? RHYTHMS)))

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

Debug  (type H for help)

(C::DO-CALL #<Code Object "Top-Level Form" {4807BD17}> 22 23 4 ...)
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:
  target:code/byte-interp.lisp.
0] 1
*