Commit b4af2289 authored by Liam Healy's avatar Liam Healy
Browse files

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).
parent 3c6a2d2e
;; 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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment