diff --git a/fast-fourier-transforms/unpack.lisp b/fast-fourier-transforms/unpack.lisp index 7b58662de83f554fbc9184d78bcd797fc685cf84..2ac7d9259daebd195c08f99a5121cf49b884fb7a 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))))