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