From db6d865f395167987e5f00376ea5993121ce126d Mon Sep 17 00:00:00 2001 From: Sumant Oemrawsingh <soemraws@xs4all.nl> Date: Sun, 8 Nov 2009 23:26:21 +0100 Subject: [PATCH] Generic unpack function didn't pass on vector The generic unpack function called the specific unpack functions without passing on the vector, causing you to land in the debugger. --- fast-fourier-transforms/unpack.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fast-fourier-transforms/unpack.lisp b/fast-fourier-transforms/unpack.lisp index 7b58662d..2ac7d925 100644 --- a/fast-fourier-transforms/unpack.lisp +++ b/fast-fourier-transforms/unpack.lisp @@ -88,6 +88,6 @@ (remf pass-on-args :unpack-type) (if (eq unpack-type 'complex) (if (power-of-2-p (floor (size vector) stride)) - (apply 'fft-half-complex-radix2-unpack pass-on-args) - (apply 'fft-half-complex-unpack pass-on-args)) - (apply 'fft-real-unpack pass-on-args)))) + (apply 'fft-half-complex-radix2-unpack vector pass-on-args) + (apply 'fft-half-complex-unpack vector pass-on-args)) + (apply 'fft-real-unpack vector pass-on-args)))) -- GitLab