[sapaclisp-cvs] CVS update: sapaclisp/dft-and-fft.lisp

Update of /project/sapaclisp/cvsroot/sapaclisp In directory common-lisp.net:/tmp/cvs-serv6047

Modified Files: dft-and-fft.lisp Log Message: Svref works no longer here.

Date: Mon May 16 13:37:05 2005 Author: mmommer

Index: sapaclisp/dft-and-fft.lisp diff -u sapaclisp/dft-and-fft.lisp:1.3 sapaclisp/dft-and-fft.lisp:1.4 --- sapaclisp/dft-and-fft.lisp:1.3 Mon May 16 11:59:12 2005 +++ sapaclisp/dft-and-fft.lisp Mon May 16 13:37:05 2005 @@ -220,7 +220,7 @@ ((> NN 1) (do ((j 1 (1+ j))) ((>= j NN)) - (setf c2 (svref W JJ)) + (setf c2 (aref W JJ)) (do* ((i j (+ i LL)) (kk (+ j NN) (+ i NN))) ((>= i N))