FASL FILE output from fft-mod.cl. Compiled Thursday, 6/23/05 08:11:52 pm GMT on intech19 Compiler 1.1, Lisp CVS release-19a 19a-release-20040728 + minimal debian patches Targeted for Intel x86, FASL version 19A Q& COMMON-LISPR PROCLAIM< SPECIAL **FFT-RE** BOUNDP< MAKE-ARRAY9#|B THE + DEFMACROFF+AB?LDO-ARG-COUNT-ERROR<@Q COMPILED-DEBUG-INFOR#(B$$-C& DEFMACRO FF+D&COMMON-LISP-USEREQ COMPILED-DEBUG-FUNCTIONRQ DEBUG-FUNCTIONR(H$$-I(J$$ -KNMACRO<MNEXTERNAL+ G4MG5O+P$$$ DELETED(RNSTANDARD$'$$#1 T$*K+)LIST COMMON-LISPNTAILLISPNWHOLE-0CU+p*$#  L  TV$$Q(WS$'$$*#1 X(Y1ZMX[; |~EeUM$<H$<1#BЋI (t$<t̓M$<H$<qEH$<I$<AE=4((|(;(v|([ÉP@x@p@ ((=4(t ]=u4((|(;(v|([ÉP@x@p@ ((=4(t }4((|(;(v|([ÉP@x@p@ ((=4(t =4((|(;(v|([ÉP@x@p@ ((=4(t ӋMEM$<p܃=!%CCC)kP- @ M N N4((|(;(v|( @P(=4(t    N N N N NQNRELATIVERalloc_overflow_eax1QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERalloc_overflow_ebxSQNABSOLUTER-QNABSOLUTER'QNRELATIVERalloc_overflow_ebxQNABSOLUTERQNRELATIVERalloc_overflow_ebx|QNABSOLUTERSQNABSOLUTERMQNRELATIVERalloc_overflow_ebx QNABSOLUTERQNABSOLUTER=?mM&(a b)n FUNCTIONp LISTrMsJ?>t#|B9 *;FF*?@<@C& DEFMACRO FF*vEKLuwN+ G4MG5x+y$$$Q(zS$'$$#1 {$*K+)LIST COMMON-LISPNTAILLISPNWHOLE-0C|+p*$#  L  T}$$Q(~S$'$$*#1 (1w; |~EeUM$<H$<1#BЋI (t$<t̓M$<H$<qEH$<I$<AE=4((|(;(v|([ÉP@x@p@ ((=4(t ]=u4((|(;(v|([ÉP@x@p@ ((=4(t }4((|(;(v|([ÉP@x@p@ ((=4(t =4((|(;(v|([ÉP@x@p@ ((=4(t ӋMEM$<p܃=!%CCC)kP- @ M N N4((|(;(v|( @P(=4(t    N N N N NQNRELATIVERalloc_overflow_eax1QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERalloc_overflow_ebxSQNABSOLUTER-QNABSOLUTER'QNRELATIVERalloc_overflow_ebxQNABSOLUTERQNRELATIVERalloc_overflow_ebx|QNABSOLUTERSQNABSOLUTERMQNRELATIVERalloc_overflow_ebx QNABSOLUTERQNABSOLUTER=?wnopqwJ?>#|B9 -;FF-?@<@C& DEFMACRO FF-EKLN+ G4MG5+$$$Q(S$'$$#1 $*K+)LIST COMMON-LISPNTAILLISPNWHOLE-0C+p*$#  L  T$$Q(S$'$$*#1 (1̢; |~EeUM$<H$<1#BЋI (t$<t̓M$<H$<qEH$<I$<AE=4((|(;(v|([ÉP@x@p@ ((=4(t ]=u4((|(;(v|([ÉP@x@p@ ((=4(t }4((|(;(v|([ÉP@x@p@ ((=4(t =4((|(;(v|([ÉP@x@p@ ((=4(t ӋMEM$<p܃=!%CCC)kP- @ M N N4((|(;(v|( @P(=4(t    N N N N NQNRELATIVERalloc_overflow_eax1QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERalloc_overflow_ebxSQNABSOLUTER-QNABSOLUTER'QNRELATIVERalloc_overflow_ebxQNABSOLUTERQNRELATIVERalloc_overflow_ebx|QNABSOLUTERSQNABSOLUTERMQNRELATIVERalloc_overflow_ebx QNABSOLUTERQNABSOLUTER=?nopqJ?>#|B9 /;FF/?@<@C& DEFMACRO FF/EKLN+ G4MG5+$$$Q(S$'$$#1 $*K+)LIST COMMON-LISPNTAILLISPNWHOLE-0C+p*$#  L  T$$Q(S$'$$*#1 (1; |~EeUM$<H$<1#BЋI (t$<t̓M$<H$<qEH$<I$<AE=4((|(;(v|([ÉP@x@p@ ((=4(t ]=u4((|(;(v|([ÉP@x@p@ ((=4(t }4((|(;(v|([ÉP@x@p@ ((=4(t =4((|(;(v|([ÉP@x@p@ ((=4(t ӋMEM$<p܃=!%CCC)kP- @ M N N4((|(;(v|( @P(=4(t    N N N N NQNRELATIVERalloc_overflow_eax1QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERalloc_overflow_ebxSQNABSOLUTER-QNABSOLUTER'QNRELATIVERalloc_overflow_ebxQNABSOLUTERQNRELATIVERalloc_overflow_ebx|QNABSOLUTERSQNABSOLUTERMQNRELATIVERalloc_overflow_ebx QNABSOLUTERQNABSOLUTER=?nopqێJ<su< TYPE SIMPLE-ARRAYtS-PI#$1; '? !0q?"#0q?$%0q?&'0q()q(*q0$$$78?># B EXPT< EQUAL<< MOD#&(error ... array size not a power of two. PRINC< READ< TERPRI<C& DEFUN FFTEKFFTN+G33MG34G35+$ +$S$'$$#01 $ZK+~AIMAGc AREAL#II IPCCJ##JCKMLLELE1MNTITRUIVUR6IWIWRv+!Zb) I& ,0 22007Hx CHx AHxDHx FH8VLLKTR TRCfmpT'4 4 4 4 4 4 $ $ $ $ $ $X}#TrT[$ +S$'$$Z#A1 (1;  ~Ee $<B<^$<G<^}E1ENMMME1EIMAtlU;E|u؋܃ }kP܃ UkPu؁ (EN}TUEU9TDV͋UMI]9AMDQ΋MV9$D^V9TN]ЋMI}9 MDQMIU9MTYЋN9TV͋ЋMI]9MTQ΋M^E܉u؋U)ڋ]ыU (ʋu؋E;M|UʋM@#;E};EZ;Ecu؋܃ }kPuU]]UUʋPEEe 4((=|(;=(v=|(W(=4(t ]kPu؋]EEBtUˋPEEe 4((=|(;=(v=|(W(=4(t ]kPu؋]EEEBtE/UYωM~}qEE}^EEE9*D~ՋEEExME9EDxEE~E9D~֋EEExME9EDxƋ}FEU܋ME9E܋EDFFEE9T~EEEHE9EDxEH}E9sȋETHUN9cD~ŋNE9XTNUEHE9EEDxƋEH}E9/ȋETHMʋX;UE@A9E9]΋E@91wME;E'(ME! !E ! ! N ! ! NE ! ! Nu؋܃ %)kPԃ -1ɉjPu؋11u` M 5 54((|(;(v|( RJ(=4(t E  4((|(;(v|( @H(=4(t    &M &M & &M &M &M &M &M4((|(;(v|( [S(=4(t    N4(( |(; (v |( IQ(=4(t   N4(( |(; (v |( IA(=4(t  N   4((=|(;=(v=|( O(=4(t   & &N & &N &M &  &M &M &M &M &M &M 4(( |(; (v |( IQ(=4(t  N4(( |(; (v |( IA(=4(t x  N4(( |(; (v |( IA(=4(t  NQNRELATIVERalloc_overflow_ecx QNRELATIVERalloc_overflow_ecx{ QNRELATIVERalloc_overflow_ecx' QNRELATIVERalloc_overflow_edi] QNRELATIVERalloc_overflow_ecx QNRELATIVERalloc_overflow_ecx QNRELATIVERalloc_overflow_ebxM QNRELATIVERalloc_overflow_eaxQNRELATIVERalloc_overflow_edxcQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERalloc_overflow_ediQNABSOLUTER<QNABSOLUTERQNRELATIVERalloc_overflow_ediQNABSOLUTERQNABSOLUTER7QNABSOLUTER;QNABSOLUTER=?& (areal aimag)o MEMBERJ?> #B<C&DEFUN FFT-BENCH EK FFT-BENCHN+G3M"+ k#$ +$S$'$$#1 %$"K!+IC&+5":'$ +(S$'$$"#1 )(*1+,;~ Eeuf1E]PtSxtG nP](| (MEᐐ M  QNABSOLUTERRQNABSOLUTER<QNABSOLUTER+=?0!&()1o NULL3!4J?>5$5B!<C& DEFUN TESTFFT5EKTESTFFTN+G0M7+ 8$ +9S$'$$$01 :$"K6+;+" <$ +=S$'$$"$51 >(?1@A;5~Eeu1u` MQNABSOLUTER$=?C61oD6EJ?>F#B ARRAY-DIMENSION< ,DATA-VECTOR-SET< VECTORC&DEFUN CLEAR-FFTIEK CLEAR-FFTN+G9MK+kL$ +MS$'$$#1 N$&KJ+3 ARRAY COMMON-LISPcARRAY COMMON-LISPcICO+ & /   /      P$ +QS$'$$&#1 R(S1TU;~ EebEHF$<)A<*c#8B/-DT! @c/@d/?e/@fF< ,DATA-VECTOR-REF<G<HC&DEFUN SETUP-FFT-COMPONENThEKSETUP-FFT-COMPONENTN+G10G11G9Mj+&k$+lS$'$$#1 m$5KhNOPTIONAL+THETAo+5p$+qS$'$$5#1 r$AKi+ ARRAY COMMON-LISPCARRAY COMMON-LISPARRAY COMMON-LISPCARRAY COMMON-LISPIcPHASE COMMON-LISPTHETAcXs+A`?B 6 p  I' J$* ;' pJpp$* p ``` `` `    t$$ OPTIONAL-ARGS$(vS$'$$A#1 w(x1yz; 8~EetuU} MU(EM$<A<@@ɋ@UM$<kA<`@@ɋ@tU܋E@@ɋ@tUEEEE@MtUȋ !A=EM$<}A<*r#gBF<g< ABS<&~4d ~10f ~10f~% FORMAT<HC&DEFUN PRINT-FFTEK PRINT-FFTN+G3M+$+S$'$$#81 $&K+= ARRAY COMMON-LISPARRAY COMMON-LISPcICIMREc+ & '   '      /           $+S$'$$&#=1 (1; g~EeEH$<A<*#BJ@