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

[Mario Mommer]

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))