Update fft.lisp