Problem with CM "archive"

[Larry Troxler]

I got some strange results when attempting to use the stella "archive"
command.  What follows is my note class definition, a stella listing,
and the resulting archive file, which to me doesn't seem right.

----> The instrument (CLM): 

(definstrument expand-sound (beg dur file &optional (orig-beg 0.0)
(exp-amt 1.0) (ohop 0.02) (acc 1) (len .08) (sca 0.6))
  (let* ((f (open-input file))
         (st (floor (* beg sampling-rate)))
         (new-dur (or dur (- (snd-duration f) orig-beg)))
         (two-chans (and (stereo f) (stereo *current-output-file*)))
         (exA (make-expand :file f :start-time orig-beg
:expansion-amount
exp-amt
                           :output-hop ohop :accuracy acc
:segment-length len
                           :segment-scaler sca))
         (exB (if two-chans (make-expand :file f :start-time orig-beg
:expansion-amount exp-amt
                                         :output-hop ohop :accuracy acc
:segment-length len 
                                         :segment-scaler sca :channel
:B)))
         (nd (+ st (floor (* sampling-rate new-dur)))))
    (run
     (loop for i from st to nd do
       (outa i (expand exA))
       (if two-chans (outb i (expand exB)))))
    (close-input f)))

<------


----> Some instances that I want to archive 

stella [Top-Level]: go t1

Focus:     T1
Type:     Thread
Status:   Normal
Objects:  4
Start:    unset

Stella [T1]: list
T1:
     1. #<(EXPAND-SOUND 0.05 60 "/p2/usr/local/cm/sound/fx34.wav" 3.0 10
0.001 1 0.05 0.2)> 
     2. #<(EXPAND-SOUND 0.05 60 "/p2/usr/local/cm/sound/fx34.wav" 3.0 10
0.001 1 0.05 0.2)> 
     3. #<(EXPAND-SOUND 0.05 60 "/p2/usr/local/cm/sound/fx34.wav" 3.0 10
0.001 1 0.05 0.2)> 
     4. #<(EXPAND-SOUND 0.05 60 "/p2/usr/local/cm/sound/fx34.wav" 3.0 10
0.001 1 0.05 0.2)> 

Stella [T1]: show 1

Object:    #<(Expand-Sound 0.05 60 "/P2/Usr/Local/Cm/Sound/Fx34.Wav" 3.0
10 0.001 1 0.05 0.2)>
Type:     Expand-Sound
Status:   Normal
Position: 1 in T1
Slots:
          Container  #<THREAD: T1>
          Flags      0
          Time       0
          Rhythm     0.05
          Instrument unset
          Sca        0.2
          Len        0.05
          Acc        1
          Ohop       0.001
          Exp-Amt    10
          Orig-Beg   3.0
          File       "/p2/usr/local/cm/sound/fx34.wav"
          Dur        60

<----------

----> And this is what ended up in the archive file :

((LAMBDA (%CONTAINER%)
   (ADD-OBJECTS
      (LIST (MAKE-OBJECT 'EXPAND-SOUND 'RHYTHM 0.05 NIL 0.2 :LEN 0.05
NIL 1
                         NIL 0.001 NIL 10 NIL 3.0 :FILE
                         "/p2/usr/local/cm/sound/fx34.wav" NIL 60)
            (MAKE-OBJECT 'EXPAND-SOUND 'RHYTHM 0.05 NIL 0.2 :LEN 0.05
NIL 1
                         NIL 0.001 NIL 10 NIL 3.0 :FILE
                         "/p2/usr/local/cm/sound/fx34.wav" NIL 60)
            (MAKE-OBJECT 'EXPAND-SOUND 'RHYTHM 0.05 NIL 0.2 :LEN 0.05
NIL 1
                         NIL 0.001 NIL 10 NIL 3.0 :FILE
                         "/p2/usr/local/cm/sound/fx34.wav" NIL 60)
            (MAKE-OBJECT 'EXPAND-SOUND 'RHYTHM 0.05 NIL 0.2 :LEN 0.05
NIL 1
                         NIL 0.001 NIL 10 NIL 3.0 :FILE
                         "/p2/usr/local/cm/sound/fx34.wav" NIL 60))
      %CONTAINER% NIL :COPY-FIRST
     NIL)
   %CONTAINER%)
 (MAKE-OBJECT '(THREAD T1) 'ID 'T1))

< ----------


What's with all the NILs ???

Larry

 

--  Larry Troxler --  lt@westnet.com  --  Patterson, NY USA  --