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