From b4af2289ff55e6a0d950880f3f30448635a54757 Mon Sep 17 00:00:00 2001 From: Liam Healy <liam@thinkpad.local> Date: Wed, 11 Nov 2009 19:03:47 -0500 Subject: [PATCH] Change incorrect clauses in make-fft-wavetable For the case (eql element-type 'double-float) in make-fft-wavetable, the clauses of the if were reversed; now fixed. This fixes erroneous output from (test-real-radix2 'double-float 6). --- fast-fourier-transforms/wavetable-workspace.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fast-fourier-transforms/wavetable-workspace.lisp b/fast-fourier-transforms/wavetable-workspace.lisp index 4a380e21..fe40f525 100644 --- a/fast-fourier-transforms/wavetable-workspace.lisp +++ b/fast-fourier-transforms/wavetable-workspace.lisp @@ -1,6 +1,6 @@ ;; Wavetable and workspace object definitions. ;; Sumant Oemrawsingh, Sun Oct 25 2009 - 16:35 -;; Time-stamp: <2009-11-07 11:24:02EST wavetable-workspace.lisp> +;; Time-stamp: <2009-11-11 19:01:48EST wavetable-workspace.lisp> (in-package :gsl) @@ -212,8 +212,8 @@ (make-fft-real-wavetable-single-float dimension))) ((eql element-type 'double-float) (if half-complex - (make-fft-real-wavetable-double-float dimension) - (make-fft-half-complex-wavetable-double-float dimension))) + (make-fft-half-complex-wavetable-double-float dimension) + (make-fft-real-wavetable-double-float dimension))) ((equal element-type '(complex single-float)) (make-fft-complex-wavetable-single-float dimension)) ((equal element-type '(complex double-float)) -- GitLab