[CM] Plnet CM Problems

[Ken Locarnini]

I just installed the latest Planet, and I'm having a problem with 
clisp-cm-clm-cmn.  I load and compile my instruments as usual, but when 
try and load a piece I'm working on, CM complains that no class is 
defined, when it is clearly loaded.  If I do a with-sound, clm compiles 
and plays. What gives?!?  Thanks,
Ken

[nunativs@localhost tmp]$ clisp-cm-clm-cmn
;; Loading file /usr/lib/clisp/cm-clm-cmn/lispinit.lisp ...
;;
;; CM 2.4.0 (06/28/2003); CLM 2 (08/18/2003); CMN (08/15/2003)
;;
;; Loaded file /usr/lib/clisp/cm-clm-cmn/lispinit.lisp
[1]> (load ".cminit.lisp")
;; Loading file .cminit.lisp ...
;;  Loading file v.ins ...
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_VIOLIN.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_VIOLIN.c"
;;  Loaded file v.ins
;;  Loading file nrev.ins ...
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_NREV.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_NREV.c"
;;  Loaded file nrev.ins
;;  Loading file fmex.ins ...
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_BELL.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_BELL.c"
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_DRUM.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_FM_DRUM.c"
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_GONG.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_GONG.c"
;;  Loaded file fmex.ins
;;  Loading file simp.ins ...
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_SIMP.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_SIMP.c"
;;  Loaded file simp.ins
;;  Loading file pluck.ins ...
; Writing "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_PLUCK.c"
; Compiling "/home/nunativs/sound/cm/clm/compiled/clm_lnxclp_PLUCK.c"
;;  Loaded file pluck.ins
"SYSTEM READY"
;; Loaded file .cminit.lisp
T
[2]> (define (a)
   ;; create a heap of keynums out of a list of notes.
   (let ((notes (new accumulation :of '(c4 f g c3 d g bf4 c5 ef4 d3 c4)))
     (rhy (new cycle :of '(e e e s s e e e s s e e e s s e e e t t t t)))
     (amp (new palindrome :of '(.5 .1 .1 .3 .1))))
       (process for i from 0
            ;; iterpolate an amp between .2 and .8 every 6 notes.
            for a = (next amp)
            for n = (next notes)
            for r = (rhythm (next rhy))
            repeat 200
            output (new simp
                :time (now)
                :frequency (hertz n)
                :duration (* r 2)
                :amplitude a
                :reverb-amount .05
                :amp-env '(0 0 2 1 10 .5 100 0))
            wait r)))

(define (b)
   ;; create a heap of keynums out of a list of notes.
   (let ((notes (new cycle :of '(c2 bf1 f2 g2)))
     (rhy (new cycle :of '(b)))
     (amp (new palindrome :of '(.6))))
       (process for i from 0
            ;; iterpolate an amp between .2 and .8 every 6 notes.
            for a = (next amp)
            for n = (next notes)
            for r = (rhythm (next rhy))
            repeat 10
            output (new simp
                :time (now)
                :frequency (hertz n)
                :duration (* r .9)
                :amplitude a
                :reverb-amount .05
                :amp-env '(0 0 1 1 5 .3 100 0))
            wait r)))


*** - FIND-CLASS: SIMP does not name a class
1. Break [3]>
*** - FIND-CLASS: SIMP does not name a class
2. Break [4]> (with-sound()(simp 0 2 110 .3))
;; Loading file /home/nunativs/sound/cm/clm/compiled/rc.pool.cl ...
;; Loaded file /home/nunativs/sound/cm/clm/compiled/rc.pool.cl
"/home/nunativs/sound/cm/waves/test.wav"
2. Break [4]>