[CM] 'run' progress report

[Bill Schottstaedt]

Still hacking away...

(time (with-sound () (fm-violin 0 20 440 .1)))
  sbcl:    0.197
  Snd+s7:  0.218

(time (with-sound (:reverb jc-reverb) (fm-violin 0 20 440 .1)))
  sbcl:   0.433
  Snd+s7: 0.425

(time (with-sound () (do ((i 0 (+ i 1))) ((= i 10000)) (fm-violin (* i .001) .01 
440 .001))))
  sbcl:   1.607
  Snd+s7: 1.683

(time (load "popi.scm")) or (time (load "popi.clm"))
  sbcl:   1.185
  Snd+s7: 1.315

(time (with-sound () (p 0 3))) or (time (with-sound () (p 0 :duration 3.0)))
  sbcl:   0.321
  Snd+s7: 1.122

(time (with-sound () (expandn 0 10 "oboe.snd" 1 :expand 4)))
  sbcl:   0.096
  Snd+s7: 0.232

(time (with-sound () (singer 0 .1 (list (list .4 ehh.shp test.glt 523.0 .8 0.0 .0
1) (list .6 oo.shp test.glt 523.0 .7 .1 .01)))))
  sbcl:   0.072
  Snd+s7: 0.225

(time (with-sound () (pins 0 3 "oboe.snd" 1.0 :max-peaks 8)))
  sbcl:   0.064
  Snd+s7: 0.233


But these "time" results are all over the map -- treat with the usual skepticism.