(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) ("11-Feb-84 13:03:20" . {PHYLUM}FFT.SOURCE;2) FNS (FFT FFT.TEST) (READATABASE) ( CALL FFT (ARRAYSIZE IQUOTIENT SUB1 ADD1 IPLUS EXPT TERPRI FASTELT IDIFFERENCE COS FQUOTIENT FLOAT SIN FDIFFERENCE FTIMES FPLUS) FFT.TEST (ARRAY IPLUS) NIL BIND FFT NIL FFT.TEST NIL NIL NLAMBDA FFT NIL FFT.TEST (TIMEALL) NIL NOBIND FFT NIL FFT.TEST NIL NIL RECORD FFT NIL FFT.TEST NIL NIL CREATE FFT NIL FFT.TEST NIL NIL FETCH FFT NIL FFT.TEST NIL NIL REPLACE FFT NIL FFT.TEST NIL NIL REFFREE FFT NIL FFT.TEST NIL NIL REF FFT (AREAL AIMAG) FFT.TEST NIL NIL SETFREE FFT NIL FFT.TEST NIL NIL SET FFT (AR AI PI N NV2 NM1 M I J TR TI K LE LE1 UR UI WR WI IP L) FFT.TEST (SIZE RE IM I) NIL SMASHFREE FFT NIL FFT.TEST NIL NIL SMASH FFT NIL FFT.TEST NIL NIL PROP FFT NIL FFT.TEST NIL NIL TEST FFT NIL FFT.TEST (SIZE) NIL TESTFREE FFT NIL FFT.TEST NIL NIL PREDICATE FFT (ILESSP IEQP IGREATERP ZEROP MINUSP) FFT.TEST (IGREATERP) NIL EFFECT FFT (PRIN1 HELP FASTSETA) FFT.TEST (SETA) NIL CLISP FFT (for from to do by) FFT.TEST (for from to do) NIL SPECVARS FFT NIL FFT.TEST NIL NIL LOCALVARS FFT NIL FFT.TEST NIL NIL APPLY FFT NIL FFT.TEST NIL NIL ERROR FFT NIL FFT.TEST NIL NIL LOCALFREEVARS FFT NIL FFT.TEST NIL NIL ARGS FFT NIL FFT.TEST NIL NIL USERTEMPLATES OP# (CALL) NIL 0 FFT NIL FFT.TEST NIL NIL )