T#<> quad-fast.lisp by nil on RJF-E510 at 2007/1/14 09:37:18\ using 8.0 [Windows] (Oct 23, 2006 22:40).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 2)) *)"8.0 [Windows] (Oct 23, 2006 22:40)!Ag26264<*source-pathname* pathname  quad-fastlisp unspecific quad-fast.lisp  /UV$VFɋuÐ null 0+ @quad-fast.lispLN<top-level-form <QAg26265@<mpfr internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <QAg26266@<optimize speed safety space compilation-speed compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<top-level-form < Q@mpfr legendre_pd and typep k quote fixnum ga<= !assert-1 !abs = 1+  two-arg-*  two-arg-/ 1-  two-arg-- / UV\UtE׋FWWWRP^׋EЉU3^W';tփ}u333ɱɋuÃ}uE3Ҳ3ɱjE3uE3۳UÉ]Ћ uo;~~u܏E؋E^׋Ћ^"3W';E^&׋ЋE^*W']3Ҳ^*W'^.3ҲW'ЋE3ɱVŰW';tỦŰU3^*W'^2׋U^*W'U܋^*W'EȋEЋ^2׋Uԋ^*W'ЋEȋ^6W'UЋ^.W'u܏EԉE3Ҳ]uep_EЋ]ЋUEU܋^*W'Uԋ^6W'ЋE^*W'EċEЋ‹^*W'^2׋ЋEċ^.W'UË_W' kx0 2{N !x t1 t0 i fp3+ @mpfr_divlanguage c LNmpfr_sub!!LNmpfr_mul!!LNmpfr_add!!LN legendre_pdbf and typep k quote fixnum <= !assert-1 !into abs = 1+  two-arg-*  two-arg-/ ! " *rndmode* determine-foreign-address !< "! "! "!!<"! "! "!!<"! "!!<"! "!!<"! "! "!!<"! "!!<"! "!!<"! "!!<"! "!!<"! "!!<"! "!!<"! "!!<"! "! "!!<"! "!!<"/,T UVUtE׋FWWWRP^׋EЉU3^W';t֋E^׃}u333ɱɋuÃ}u 3Ҳ3ɱE3^׉E܋E^׉E3^׉|3^jEȋ]EԋEȋ us;u؏E̋E^"׋Ћ^&3W'; E^*׋ЋE^.W']3Ҳ^.W'^23ҲW'ЋE3ɱ(Ӊ]ЋW';t]Љ]Ћ]ԋSF6@tSpN:AO;H}D@v>lhdhQIuYY $tQIuYYL$pQIuYYL$dQuY YyI}ىL$ śoL$7iy jA7l7YSu79y ta 17^B[UԋB`^F[\N:AO;H}D@vJXTPTQIuYY $`QIuYYL$\QIuYYL$PQuY YyI}ىL$ śoL$7iy jA7X7YSu79y ta 17^F[VNRFR@LN:YO;K}\ [vVHD@ two-arg-- -DT! @ two-arg-* cos  .inv-aref_1d / lUV\E]IË׉]ԋ^W'׃WWhRP3ɱ;}t ]ԋS;tL]jEE[tW;uЋW+EȋE̋׃WWujuRP3ɱEEVEE^W'ЋF^"W'E3۳Ë Uu;E~,!ËW+>U]܋W';unEɋuËÉ]܋^&׉EЋV*E܋^.W'ЋF2^6W'U؋^6W'^:׋U uRP^>3Ҳ]upE܋]^]떋Ë_W' n02{Nn ar j nph ffp3+ @ improvedroots 1- aref_1d into  .inv-aref_1d improve_lg_root /UVTE~G]]jE̋]ẺU܋ u1;~BjEЋE܋^׉EċEЋ ]uP;E~dYjE븋Ӊ]؋W';t]jEԉ]؋E܋^׉EȋEԋ ]un;EsUċW';u EɋuËEUЋ^W'^׋U uRP^3Ҳ]EЋE=UȋW';u 3Ҳ]ugpaE̋]؋UEUԋ^W'ЋE܋^"W'U uRP^3Ҳ]u(p"EԋE Ë_W'rË_W'땋Ë_W'Ԑ an &optional iter0 2{N iter a n fj ! k ff p3+ @improve_lg_root  legendre_pd =  two-arg-/  two-arg-- newton iteration failed at ~s/p8UV4U^W'r3A׉E‰E3ҋ^W';tE3ҋ^W';t"EɋuËEU܋^W'ЋE^W'UF"W' nguess02{Nguess val deriv p3+ @improvedrootsbf 1- aref_1d improve_lg_rootbf /BUV4EjE܋‰E^׉E؋E܋ ]u;E~EɋuËU؋W';tEU܋^W'ЋE^W'3Ҳ]upE܋E롋Ë_W' an02{Nn a j fp3+ @improve_lg_rootbf  legendre_pdbf = determine-foreign-address quote <"!!<"newton iteration failed at ~s/,UV|U^W'r3A׉E‰E3ҋ^W';tE3ҋ^W';EɋuË]SCUЋUԋRvẺEȉUċMQIuYY $MQIuYYL$MQIuYYL$3QuY YyI}ىL$ śoL$7iy jA7]̋7YSu79y ta 17]SCUURvEEUMQIuYY $MQIuYYL$MQIuYYL$3QuY YyI}ىL$ śoL$7iy jA7]7YSu79y ta 17E*UF"W' nguess0( 2{N guess val deriv p3+ @ legendre_pdwt into and typep k quote fixnum < !assert-1 !1- abs =  two-arg--  two-arg-*  two-arg-/ !"!" *rndmode* determine-foreign-address !<"!"!"!!<"!"!!<"!"!!<"!"!"!!<"!"!!<"!"!!<"!"!!<"!"!"!!<"!"!"!!<"!"!!<"!"!!<"!"!"!!<"!"!!<"!"!!<"!"!"!!<"!"!!<"!"!!<"!"!!<"!"!!<"!"!"!!<"!"!!<"/?\ UVU܉EЋ^׉E]t׋FWWWRP^Ӌ^3W';tڋE܋^׉EuE3^׉EjT3^u܏EjE̋EЋ^"׉EȋE̋ ] ;E E܋^&׋Ћ^*3W';E3Ҳ^.W'ЋE^2W']Ѓ3Ҳ^2W'^63ҲW'Eċ^:[UBD^>[@NBAO;H}D@vF<848QIuYY $DQIuYYL$@QIuYYL$4QuY YyI}ىL$ śoL$7iy jA7<7YSu79y ta 17^>[VJRFN@0NBYO;K}\ [vR,($ (QIuYY $0QIuYYL$$QIuYYL$ QuY YyI}ىL$ śoL$7iy jA7,7YSu79y ta 17^N[U܋RFV@NBYO;K}\ [vZ QIuYY $QIuYYL$QIuYYL$ QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^V[U؋RF^@NBYO;K}\ [vbQIuYY $QIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^^[]]SFf@VjRNBAO;H}D@vnQIuYY $QIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^j[UԋRFr@NBYO;K}\ [vvQIuYY $QIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^r[VzRNBAO;H}D@v~QIuYY $MQIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^z[UR@NBYO;K}\ [QIuYY $QIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17Eċ^2W'ЋE^2W'Ћ^6W'ɋuËUȋW';tE̋^׋[PE@PNBYO;K}\ [LHD@HQIuYY $PQIuYYL$DQIuYYL$@QuY YyI}ىL$ śoL$7iy jA7L7YSu79y ta 17[R@׉Eԍ]]̍]ҋF:Ӄ uRP^>׋Uԃ jRP^Bɋu funn02{Nn  abscissae myprec goal-precision weights closure np1 p!fun pp3+ @internal  int_gs_l1bf LN!!LN!!< < < < W@mpfr_setlanguage c LN int_gs_l2bf  two-arg-+ into get-prec ?? two-arg-/ ? two-arg-- -DT! @ two-arg-* cos improve_lg_root  two-arg-min set-prec improve_lg_rootbf  *rndmode* determine-foreign-address quote <"<  legendre_pdwt !"!!<"!"!!< "!!<"/UVE܋‰E3Ҳ^W'E3^3^׉E^׉EԋVE^W'ЋF"^&W'E3۳UÉ]ȋ u ;~EɋuÉUЋW';tUЉUЋV*Eȋ^.W'ЋF2^6W'Ű^6W'^:jEЋE^>W'E3Ҳ]EE3Ҳ;E^׉E3۳ U3^6W'EЋEԋ^BW'^F׋EUċ^JW'@]ċSENNAO;H}D@vREUEMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]7YSu79y ta 17]ËUԉ]^VW';]SE؉UUċ^ZW'@EEċu3A@^^[NNQO;J}T RvbE]EUMQIuYY $MQIuYYL$MQIuYYL$MQuY YyI}ىL$ śoL$7iy jA7]7YSu79y ta 17^^[VfRNNAO;H}D@vj|xtpxQIuYY $MQIuYYL$tQIuYYL$pQuY YyI}ىL$ śoL$7iy jA7|7YSu79y ta 17^f[UBlNNYO;K}\ [vnhd`dQIuYY $lQIuYYL$`QuY YyI}ىL$śoL$ 7iy jA7h7YSu79y ta 173Ҳ]u.p(.Ë_W'lW';uU-Ë_W'Eȋ]ȋU funn0("2{N"sum n fun np1 goal-precision fnph j fv myprec a1 k v !!tt !a2 !! !!"p3+ @ ab_and_wts  two-arg-+ ?? two-arg-/ get-prec  ceiling_1ret calc-array-size 1- into  .inv-aref_1d !"!" *rndmode* determine-foreign-address quote < "! ! <"aref_1d ! ! < "> two-arg-- -DT! @ two-arg-* cos  legendre_pd  two-arg-min set-prec  legendre_pdbf <  legendre_pdwt /yUV$UjE]؉E3Ҳ^W'EVE^W'ЋF^W'@]EcW'EE^"׉EE3Ҳ^&W'I׉p^*W'׃WWhRP3ɱ;pt pS;tapjdd[tW;uЋW+@d׃WWpj@RP3ɱEEEE3Ҳ^&W'IuG׉l^*W'׃WWhRP3ɱ;lt lS;ttW+W+벋lj``[tW;uЋW+<`׃WWljR$NBAO;H}D@vF QIuYY $(QIuYYL$$QIuYYL$QuY YyI}ىL$ śoL$7iy jA7 7YSu79y ta 17^>[UBNBYO;K}\ [vJ  QIuYY $DQIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17EU uRP^6]SEHx^NW'@]S8NBAO;H}D@vR40,0QIuYY $HQIuYYL$8QIuYYL$,QuY YyI}ىL$ śoL$7iy jA747YSu79y ta 173Ҳxxt_W'؋VVË^ZW'ЋF^^bW'PE3ЋP^bW'^f@jE]3ЋE^jW'r3A@B]E]3؉hE3؉LE3ЋL^W'Ћh^ZW'@3Ҳ]Ћ]EE3Ҳ;E3^2׉E3۳Z|3^bW'|ЋE^nW'^r׋EU^vW'r3A׋^W'ЋE^ZW'E|ËU|^zW';uEU uRP^6׋EU^~W'U uRP^63Ҳ]u=p7=Ë_W'Ë_W'W';EË_W'EE n precision(0(.2{N. abscissae n halfn  precision np1 weights  globalprec i f!sum a ffmyprec !fffa1 !!a2 tt !!!"!#!"!#.p3+ @ int_gs_l4bf  two-arg-+ into ?? two-arg-/ get-prec  legendre_pdwt  two-arg-* ? two-arg-- -DT! @cos improve_lg_root  two-arg-min set-prec improve_lg_rootbf  *rndmode* determine-foreign-address quote <"< !"!!< "!"!!<"!"!!< "!!<"/4UVE‰E3Ҳ^W'E3^׉EVE܋^W'ЋF^"W'EЋ^&׉EԋEܺcW'3۳E̋Ë UuU;E~fE3ҲW'3u3AEE3ҋ^*W'ЋE^.W'ЋE^W'ɋuËỦ]ȋW';t]ȋV2É]ȋ^6W'ЋF:^.W'UЋ^.W'^>jEЋE܋^BW'E3Ҳ]u'p!EE3Ҳu;$EvË_W'ՋW';E^׉E3۳ U3^.W'EЋEԋ^FW'^J׋E܋Uċ^NW'@]ċSENRAO;H}D@vVEUEMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]7YSu79y ta 17]ËUԉ]^ZW';]SE؉UUċ^*W'@EEċu3A@EUĸ^.W'u3A@^^[NRQO;J}T RvbE|xt|QIuYY $MQIuYYL$xQIuYYL$tQuY YyI}ىL$ śoL$7iy jA7]7YSu79y ta 17^^[VfRNRAO;H}D@vjplhdlQIuYY $MQIuYYL$hQIuYYL$dQuY YyI}ىL$ śoL$7iy jA7p7YSu79y ta 17^f[VnRNRAO;H}D@vr`\XT\QIuYY $MQIuYYL$XQIuYYL$TQuY YyI}ىL$ śoL$7iy jA7`7YSu79y ta 17^n[UBPNRYO;K}\ [vvLHDHQIuYY $PQIuYYL$DQuY YyI}ىL$śoL$ 7iy jA7L7YSu79y ta 173Ҳ]upEȋ]ȋEBUË_W' funn0()2{N)sum fun n np1 goal-precision nph halfn j fv a1 myprec !k v !!tt !a2 !!!!!!)p3+ Ag26340@<special  *legendabs* simple-augment-environment /&UVHD@_2op values eq assert-1 <= fixnump not !logand oddp + 1+ loop-really-desetq * - twobytwo / setf > when loop eql case list typep unless assert  legendre_pdbf ! *rndmode* !!!!!!!!mpfr_div mpfr_sub mpfr_mul mpfr_add  structure-ref gmpfr-f !!!into ! !!!"!#!!$!%!)!+!,!&!'!( with-temps dsetv !.!/!0!1!2!-!3!4!5!6setroots !! .inv-aref_1d !!cos !! two-arg-+ !length cdr !#null calc-array-size cons listp !!&!'!( .inv-s-aref !*!)!-!.!/!0+ !+!,!3 make-array  improvedroots !!?!!Caref_1d improve_lg_root !!!!&!'!(!Laref !-!.!/!0 !Q!!,!+!*!!!error !!improvedrootsbf !!!Pimprove_lg_rootbf !!!!&!'!(!R!.!/!0!U!!:!=!>!9!S!!7 legendre_pdwt !!8!!$evenp !*!&!'!(!A!@!.!/!0!)!+!,!-!3!4!5!6!!9!!!!!!!:!;!=!>!!!!! < !"!#!? int_gs_l1bf !!)!-!5!0!+!M! sum-prod-mpfr map !T!set-prec !X!#get-prec !E!B!O < !funcall < !!V int_gs_l2bf !!8!!<!;!^!Vmpfr_set !U!=!> two-arg-min !\!X!#!!Q!!!D!!!]!?!E!!Amin !5!&!'!(!*!)!-!.!/!0!,!+!M ab_and_wts !!8!!!:!<!P!=!>!!!V!C!7!a!\!X!?!!!!!D!!!F!G!#!H!I!J!K ceiling_1ret !]ash !!E#!!R!A!$!%!Llet* !b!5!(!&!'!*!)!-!.!/!0!3!N!,!+!M int_gs_l4bf !!8!!!!;!<!^!V!`!U!=!>!a!\!X!#!!Q!!!D!!e!]!!?!E!!$!%!A!b!5!&!'!(!*!)!-!.!/!0!,!+!Mclear-leg-hash !!!!!clrhash  int_gs_l5bf !!8!!!!!!!!<!;!P!^!=!>!!!e!?%puthash !c!]>=_2op gethash_2op_1ret !!$!%!&!'!(!@!R!A!.!/!0!->= gethash  !/ UV$F^׋ɋuÐ null 0+ @32x<top-level-form <5Q32yAg26365@< int_gs_l5bf operator !!clear-leg-hash !!! *legendprec* variable < *legendwts* !< *legendabs* !< int_gs_l4bf !!! ab_and_wts !!! int_gs_l2bf !! ! int_gs_l1bf !! ! legendre_pdwt !! !improve_lg_rootbf !! !improvedrootsbf !! !improve_lg_root !!! improvedroots !!!setroots !!! legendre_pdbf !!! legendre_pd !!!  load-scm-info / UV$F^׋ɋuÐ null 0+ @32y<top-level-form <5Q3Ag26366 @<  legendre_pd  .de-args. M legendre_pdbf !setroots ! improvedroots !improve_lg_root !improvedrootsbf !improve_lg_rootbf ! legendre_pdwt ! int_gs_l1bf ! int_gs_l2bf ! ab_and_wts ! int_gs_l4bf !clear-leg-hash ! int_gs_l5bf !store-doc-forms / UV$F^׋ɋuÐ null 0+ @< top-level-form <5Q