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

[Mario Mommer]

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

Modified Files:
	dft-and-fft.lisp 
Log Message:
Litle stylistic nitpick

Date: Mon May 16 11:07:35 2005
Author: mmommer

Index: sapaclisp/dft-and-fft.lisp
diff -u sapaclisp/dft-and-fft.lisp:1.1.1.1 sapaclisp/dft-and-fft.lisp:1.2
--- sapaclisp/dft-and-fft.lisp:1.1.1.1	Mon May  9 22:24:34 2005
+++ sapaclisp/dft-and-fft.lisp	Mon May 16 11:07:35 2005
@@ -156,11 +156,11 @@
 ;    2.220446049250313E-16
 |#
 
-;-------------------------------------------------------------------------------
+;-----------------------------------------------------------------------------
 ;;; used by the following routine fft!
-(defparameter +use-pre-fft-with-cache-p+ t)
+(defparameter *use-pre-fft-with-cache-p* t)
 
-;-------------------------------------------------------------------------------
+;-----------------------------------------------------------------------------
 ;;;  The following code is a Lisp version (with modifications) of
 ;;;  the FFT routines on pages 54--6 of ``Digital Spectral Analysis with
 ;;;  Applications'' by Marple, 1987.  The function fft! only works
@@ -173,7 +173,7 @@
 ;;;         X(k) =  SUM x(n) exp(-i 2 pi n k/N)
 ;;;                 n=0
 ;;;
-;;;  If +use-pre-fft-with-cache-p+ is true, the complex exponential table
+;;;  If *use-pre-fft-with-cache-p* is true, the complex exponential table
 ;;;  for N=2^P is stored in an array of length N pointed to by the P-th element
 ;;;  of *sapa-cached-pre-fft-arrays*.  The intent here is to speed things up
 ;;;  and reduce garbage collection (at the expense of extra storage), but the
@@ -199,7 +199,7 @@
 Note: see Equation (110a) of the SAPA book
       with the sampling time set to unity"
   (let ((exponent (power-of-2 n))
-        (W (if +use-pre-fft-with-cache-p+
+        (W (if *use-pre-fft-with-cache-p*
              (pre-fft-with-cache n)
              (pre-fft n)))
         (MM 1)