rpm -e clisp-clm
rpm -e cmucl-clm
rpm -Uvh /usr/src/redhat/RPMS/i386/clisp-cm-clm*
rpm -Uvh /usr/src/redhat/RPMS/i386/cmucl-cm-clm*

cd /zap
if [ -d beep ] ; then
    rm -r beep
fi
mkdir beep
cd beep
cp /usr/src/redhat/BUILD/clm-2/v.ins .

echo "======== Starting clisp-cm-clm ========"
clisp-cm-clm <<EOF

(compile-file "v.ins")
(load "v.fas")
(with-sound()(fm-violin 0 1 440 0.1))

(defprocess foo ()
  (process repeat 10
	   do
	   (output
	    (new fm-violin
	      time (now)
	      dur 1
	      amplitude .1
	      frequency (between 220.0 440.0)
	      fm-index 3))
	   (wait .5)))

(events 'foo "/tmp/test.clm" :play t)

(quit)
EOF

cd /zap
if [ -d beep ] ; then
    rm -r beep
fi
mkdir beep
cd beep
cp /usr/src/redhat/BUILD/clm-2/v.ins .

echo "======== Starting cmucl-cm-clm ========"
cmucl-cm-clm <<EOF

(compile-file "v.ins")
(sleep 1)
(load "v.cmucl")
(sleep 1)
(with-sound()(fm-violin 0 1 440 0.1))
(sleep 1)

(defprocess foo ()
  (process repeat 10
	   do
	   (output
	    (new fm-violin
	      time (now)
	      dur 1
	      amplitude .1
	      frequency (between 220.0 440.0)
	      fm-index 3))
	   (wait .5)))

(events 'foo "/tmp/test.clm" :play t)
(sleep 5)

(quit)
EOF

cd /zap
