diff --git a/fast-fourier-transforms/example.lisp b/fast-fourier-transforms/example.lisp index faccb74585d7c4e743b78c3f1353757e33a3bedc..8add24473a4197ffdd4d43a22aa65b1d373d438a 100644 --- a/fast-fourier-transforms/example.lisp +++ b/fast-fourier-transforms/example.lisp @@ -88,7 +88,7 @@ (forward (forward-fourier-transform (if (subtypep element-type 'complex) - random-vector + (copy-making-destination random-vector) (realpart-vector random-vector)) :stride stride))) (values @@ -98,3 +98,4 @@ (unpack forward :unpack-type 'complex :stride stride))))) ;;(test-fft-noise 'double-float 10 :stride 5) +;;(test-fft-noise '(complex double-float) 10 :stride 5)