On 9/28/07, Michael Gogins <gogins@pipeline.com> wrote:
> My example assumes that you have installed Common Music.

After installing a stable version (tarball) of Common Music and doing
the similar thing for CFFI [1, 2] I was able to control Csound using
CLISP with the help of your example:

(load "E:/Program Files/cm/src/cm.lisp")
(use-system :cffi :directory "E:/Program Files/clisp-2.41/cffi/cffi.asd")
(load "csound.lisp")
(load "filebuilding.lisp")
(cffi:load-foreign-library "csnd.dll")
(setq cs (csound::csoundCreate nil))
(cffi:with-foreign-string (csd "../../examples/trapped.csd")
			  (filebuilding::csoundCompileCsd cs csd))
(setq *keep-playing* t result 0)
(loop while (and *keep-playing* (eq result 0)) do
      (setq result (csound::csoundPerformKsmps cs)))


Thanks for the nice tutorial.

1- http://sourceforge.net/project/showfiles.php?group_id=9766
2- http://common-lisp.net/project/cffi/


--
Emre

>
> Regards,
> Mike
>
> -----Original Message-----
> >From: Emre Sevinc <emre.sevinc@gmail.com>
> >Sent: Sep 28, 2007 8:57 AM
> >To: csound@lists.bath.ac.uk
> >Subject: [Csnd] Where to get cm.lisp file for Csound's /interface/lisp/test.lisp?
> >
> >Hello,
> >
> >I was trying to use the clisp interface of the Csound 5.06 (64 bit
> >version) and after installing clisp successfuly I have tried:
> >
> >E:\Program Files\Csound\interfaces\lisp>clisp test.lisp
> >*** - EVAL: undefined function USE-SYSTEM
> >
> >I guess this is because of the first line in test.lisp which I had to
> >comment out since I don't have such directory or filen under the
> >csound directory hierarchy:
> >
> >;;(load "d:/utah/opt/cm/src/cm.lisp")
> >
> >(use-system :cffi)
> >(load "csound.lisp")
> >(load "filebuilding.lisp")
> >(cffi:load-foreign-library "csnd.dll")
> >(setq cs (csound::csoundCreate nil))
> >(cffi:with-foreign-string (csd "../../examples/trapped.csd")
> >                         (filebuilding::csoundCompileCsd cs csd))
> >(setq *keep-playing* t result 0)
> >(loop while (and *keep-playing* (eq result 0)) do
> >      (setq result (csound::csoundPerformKsmps cs)))
> >
> >
> >So, how can I run this lisp example for csound? Where can I get that
> >cm.lisp file?
> >