iP#<> mpfr.lisp by nil on RJF-E510 at 2007/1/11 09:33:29\ using 8.0 [Windows] (Oct 23, 2006 22:40).\ Optimization settings at wfasl time:\ ((speed 3) (safety 0) (space 0) (compilation-speed 0) (debug 2)) *)"8.0 [Windows] (Oct 23, 2006 22:40)Ag619<*source-pathname* pathname mpfrlisp unspecific  mpfr.lispCd  /UV$VFɋuÐ null 0+ @ mpfr.lispLN<top-level-form <QAg620@<mpfr use AgaAclshadowing-import-from Aga+-/*expt=/=><<=>=1-1+AabsAincfAdecfAmin Amax Asin Acos Atan AasinAacosAatanAlogAsinhAcoshAtanhAasinhAacoshAatanhAsqrtAexpA numeratorA denominatorAnegAerfAerfcA scale-float) defpackage-1 /UV$FV^W'ɋuÐ null 0+ @<top-level-form <QAg621 @< mpfr internal-in-package / UV$F׋^W'ɋu null 0+ @< top-level-form </QAg622!@N<;N<<N<=Naref_1d /SUV‰;jIj @;uNYO;K}\ [FWƒwWwRP^׉;ˀu KuË^r3A׉‹  v"׉;V&v.v*RP^2׍j}AACur t_W'‹_W'؉E +^_W'؋ ;jdwiwǏA a7AYWwTYOuO;VYW'Ë_W']j\W';3A^6;  ;V&$v:v.v*RP xw㏅3ҲQOqYjr3AQO1GY;^>׋^B׋_W' us+pej ug;vË_W'VFvRvNvJRP^V׉?(3IWkW'낋ӉW'; 3 RP^Z׋;u F^Vb(vjuvjuvjvfRP3ɱ q unpdË^nW' RP^Z3ҲuQpKQȋAQwAOItɋuË[_W'뀋Ë_W'tW xsbasernd02{Ns x i p3+ @Ag728o! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg956<dynamic-extent-arguments  alloc-mpfr compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<gmpfr determine-foreign-address quote W'EċEVBuuuRP닋NFYO;K}\ []ԋE3ҋ^W'EЋE3Ҳ^"W'ЋF:^>W'EȋE؋^J׉EEUԃuuuuRP astream0 2{N stream sign frac expon p3+ @Ag968method  print-object gmpfr t LN<! find-class ! qualifiers  specializers  lambda-list a !stream function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EG‹^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg970<special stexpon simple-augment-environment /&UV ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<stexpon  mpfr_get_str  mpfr_free_str schedule-finalization 0string-right-trim internal-string= radix  parse-integer elt expt / ZUVLNYO;K}\ [@ӉE3jujhRP^׉EV^W'UF"^&W'EV*^.W';t3ɋuËEV2 hRP^6׉ENYO;K}\ [3ҋ^:W']IuD3 [];u u@+p:E3Ҩu>;}M]3Ҳ]u]pW]E؋Ë׋ЋE뷋W'빉]܋W';u]܋3^>W'ЋE䋟W'Ë_W'ЋӐ m02{Nf r e p3+ @Ag984method outof gmpfr LN<! find-class ! qualifiers  specializers  lambda-list m !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg986<dynamic-extent-arguments cs compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<create_string_from_mpfr / UV$^ɋuÐ x0+ @Ag989<lexically-visible-function <cs  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<<cs QAg991@<cs %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg992LN<cs operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg993</uÐ null 0(+ @<<QA<determine-foreign-address quote <{"/^UVL@vEE܋MQIuYY $3QuY YyI}ىL$śoL$7iy jA7]7YSu79y ta 173ɋuÐ m0(+ @Ag995 method create_double_from_mpfr gmpfr LN< ! find-class ! qualifiers  specializers  lambda-list m !function lexically-visible-function <plist  documentation load-defmethod ׋FBVF vJRP^N׋ɋuÐ null 0+ @< << ׋FBVF vJRP^N׋ɋu null 0+ @<*<<)<+QA,<,@concat-to-simple-string  mpfr_set_str /d2UV\]ECvE܉EMщyQIu܏AIuAы‹^׋ЋEjj(RP^׋EɋuÐ sewhere02{Ninside s p3+ @Ag1009-method create_mpfr_from_string string !gmpfr LN<- find-class !! qualifiers  specializers  lambda-list s !e !where !function lexically-visible-function <,plist  documentation load-defmethod <.operator record-source-file-1 /KUVd^׉E䋇^׉EF^׉E܋EU uRP3ɱW/E؋FV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<-<<,<.QAg1015/UV<~]] uRP^ɋuÉUE܋^׋UEE xe &optional where02{Nwhere e x p3+ @Ag10181<1lexically-visible-function <0l2g  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<1<<0l2g QAg10202@<2l2g %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<2<QAg10213LN<3l2g operator <4record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<3<QAg10225<5/uÐ null 0(+ @<5<QA6<6~sbasic-write-esc p~s!pcreate_mpfr_from_string /X,UV ׋FBVF vJRP^N׋ɋu null 0+ @<7<<6<8QAg10269<9dynamic-extent-arguments create_mpfr_zero compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<9<QA:<: alloc-mpfr  *rndmode* determine-foreign-address quote record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<=<QAg1033?uRP_׋UEFBuvFRP3ɱW/EԋE܋VJW+EF6VNv>uRP_׋UEFBuvRRP3ɱW/EЋE܋VVW+EF6VZv>uRP_׋UEFBuv^RP3ɱW/E̋U3ɱW/Ћ vbRP_׋Ћ vfRP_׉EȋU3ɱW/Ћ vjRP_׉EU܋3ɱW/UE uRP3ɱW/EċU䋇3ɱW/Ћ vjRP_׉EU܋3ɱW/UE uRP3ɱW/EU䋇3ɱW/Ћ vbRP_׋Ћ vfRP_׉EU3ɱW/U؉E(uuuuuuuuRP3ɱ W/ɋu  **macroarg**..environment..02{Ntwo-arg op pgm  **macroarg**  p3+ @Ag1038A ׋FBVF vJRP^N׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<}<<|<~QA<into  *rndmode* determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA<into  *rndmode* determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QAg1199<* argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1208<*  mpfr-program mpfr_mul .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1217< two-arg-*  mpfr-program mpfr_mul .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1226< two-arg-* argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1227</uÐ null 0(+ @<<QAg1236void null LNmpfr_divlanguage c LN<<!<mpfr  simple-array integer !!!!!!int <-mpfr_div direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1239<<determine-foreign-address <<get-ff-n-args-closure mpfr_div set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1240<mpfr_div fboundp target op1 op2 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1241LN<mpfr_div operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1242</uÐ null 0(+ @<<QA<create_mpfr_zero  *rndmode* determine-foreign-address quote <"/UVlEU܋^׋XE؋URE܋@]ԋNYO;K}\ [vEЉỦEȉ]ċMQIuYY $MQIuYYL$MQIuYYL$MQuY YyI}ىL$ śoL$7iy jA7]Ћ7YSu79y ta 17EɋuÐ arg1arg20( 2{N arg1 arg2 r in p3+ @Ag1244method  two-arg-/ gmpfr !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<into  *rndmode* determine-foreign-address quote <"/UVdU^׋XE܋URNAO;H}D@vEԉ]؉UЉE̋MQIuYY $MQIuYYL$MQIuYYL$MQuY YyI}ىL$ śoL$7iy jA7]ԋ7YSu79y ta 17EɋuÐ arg1arg20(2{Narg2 r in p3+ @Ag1247method  two-arg-/ number gmpfr LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA<into  *rndmode* determine-foreign-address quote <"/UVdE‹^׋XE܋URNAO;H}D@vEԉ]؉UЉE̋MQIuYY $MQIuYYL$MQIuYYL$MQuY YyI}ىL$ śoL$7iy jA7]ԋ7YSu79y ta 17EɋuÐ arg1arg20(2{Narg1 r in p3+ @Ag1250method  two-arg-/ gmpfr number LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QAg1260</ argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1269</  mpfr-program mpfr_div .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1278< two-arg-/  mpfr-program mpfr_div .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1287< two-arg-/ argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1288</uÐ null 0(+ @<<QA<gmpfr  mpfr_npwr /h4UVDEU33҃WwhRP3ɱЋF3ɱ3]E܋C]܋SU؋U uRP^׋EɋuÐ basen02{Nbase n ans p3+ @Ag1290method  two-arg-expt gmpfr integer LN<! find-class ! qualifiers  specializers  lambda-list base !n !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\F^׉E䋇g^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QAg1301< two-arg-expt  mpfr-program mpfr_pow .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1310< two-arg-expt argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QA<log  two-arg-* exp /(UV,U^׋ЋE^W'^ɋu basen02{Nn p3+ @Ag1312method  two-arg-expt gmpfr !LN<! find-class ! qualifiers  specializers  lambda-list base !n !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<into log  two-arg-* exp /8UV,E‹^׉EE^׋ЋE^W'^ɋuÐ basen02{Nbase p3+ @Ag1315method  two-arg-expt gmpfr real LN<! find-class !! qualifiers  specializers  lambda-list base !n !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA<into log  two-arg-* exp /0UV,U^׋^׋ЋE^W'^ɋuÐ basen02{Nn p3+ @Ag1318method  two-arg-expt real gmpfr LN<! find-class !! qualifiers  specializers  lambda-list base !n !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA<ga intern mpfr_~aprinc pmpfr_~a!pdef-foreign-call target mpfr  simple-array  unsigned-byte  op1 !!! rnd int  returning !  arg-checking  call-direct t in gmpfr-f arg  *rndmode* let* h  alloc-mpfr !!!! defmethod !gmpfr quote argnum ! mpfr-program /UVlE33ҲuRP׋]ȋ[S‰UЋV^W'ENjV uRP׉E̋NjV uRP׋^׋ỦE3ɱW/ЋF" v&RP_׉E܋EV*W+EF.V2v6uRP_׋UEF:uv>RP3ɱW/E؋U䋇3ɱW/Ћ vBRP_׋Ћ vFRP_׉EԋU䋇3ɱW/Ћ vJRP_׉EċU3ɱW/UĉE uRP3ɱW/U܉EuuuRP3ɱW/ɋu  **macroarg**..environment..0 2{N fun-name d-symb op d-name  **macroarg**  p3+ @Ag1324<r lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<<<r QAg1326@<r macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<<QAg1327<r fboundp op .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1328<r %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg1329LN<r operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1330</uÐ null 0(+ @<<QAg1339int <-LNmpfr_abslanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_abs direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N6p3+ @<<QAg1342<<determine-foreign-address <<get-ff-n-args-closure mpfr_abs set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1343<mpfr_abs fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1344LN<mpfr_abs operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1345</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1347method abs gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1357<abs argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1366<abs  mpfr-program mpfr_abs .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1375int <-LNmpfr_sinlanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_sin direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NZp3+ @<<QAg1378<<determine-foreign-address <<get-ff-n-args-closure mpfr_sin set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1379<mpfr_sin fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1380LN<mpfr_sin operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1381</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1383method sin gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1393<sin argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1402<sin  mpfr-program mpfr_sin .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1411int <-LNmpfr_coslanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_cos direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N~p3+ @<<QAg1414<<determine-foreign-address <<get-ff-n-args-closure mpfr_cos set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1415<mpfr_cos fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1416LN<mpfr_cos operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1417</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1419method cos gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1429<cos argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1438<cos  mpfr-program mpfr_cos .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1447int <-LNmpfr_tanlanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_tan direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1450<<determine-foreign-address <<get-ff-n-args-closure mpfr_tan set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1451<mpfr_tan fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1452LN<mpfr_tan operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1453</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1455method tan gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1465<tan argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1474<tan  mpfr-program mpfr_tan .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1483int <-LNmpfr_explanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_exp direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1486<<determine-foreign-address <<get-ff-n-args-closure mpfr_exp set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1487<mpfr_exp fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1488LN<mpfr_exp operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1489</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1491method exp gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1501<exp argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1510<exp  mpfr-program mpfr_exp .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1519int <-LN mpfr_log10language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_log10 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1522<<determine-foreign-address <<get-ff-n-args-closure  mpfr_log10 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1523< mpfr_log10 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1524LN< mpfr_log10 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1525</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1527method log10 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1537<log10 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1546<log10  mpfr-program  mpfr_log10 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1555int <-LN mpfr_asinlanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_asin direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1558<<determine-foreign-address <<get-ff-n-args-closure  mpfr_asin set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1559< mpfr_asin fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1560 LN<  mpfr_asin operator < record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @< <QAg1561 < /uÐ null 0(+ @< <QA <  alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1563 method asin gmpfr LN< ! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function < plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @< << <QAg1573<asin argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1582<asin  mpfr-program  mpfr_asin .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1591int <-LN mpfr_acoslanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_acos direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N2p3+ @<<QAg1594<<determine-foreign-address <<get-ff-n-args-closure  mpfr_acos set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1595< mpfr_acos fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1596LN< mpfr_acos operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1597</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1599method acos gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1609<acos argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1618<acos  mpfr-program  mpfr_acos .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1627int <-LN mpfr_sinhlanguage c LN<< !<mpfr  simple-array integer !!!!<- mpfr_sinh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NVp3+ @<<QAg1630! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<'<<&<(QAg1645)<)sinh argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<)<QAg1654*<*sinh  mpfr-program  mpfr_sinh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<*<QAg1663+int <-LN mpfr_coshlanguage c LN<+<-!<,mpfr  simple-array integer !!!!<- mpfr_cosh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nzp3+ @<+<QAg1666.<.<-determine-foreign-address <,<get-ff-n-args-closure  mpfr_cosh set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<.<QAg1667/ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<4<<3<5QAg16816<6cosh argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<6<QAg16907<7cosh  mpfr-program  mpfr_cosh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<7<QAg16998int <-LN mpfr_tanhlanguage c LN<8<:!<9mpfr  simple-array integer !!!!<- mpfr_tanh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<8<QAg1702;<;<:determine-foreign-address <9<get-ff-n-args-closure  mpfr_tanh set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<;<QAg1703<<< mpfr_tanh fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<<QAg1704=LN<= mpfr_tanh operator <>record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<=<QAg1705? ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<[< ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1897<neg argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1906<neg  mpfr-program mpfr_neg .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1915int <-LN mpfr_ceillanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_ceil direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nvp3+ @<<QAg1918<<determine-foreign-address <<get-ff-n-args-closure  mpfr_ceil set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1919< mpfr_ceil fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1920LN< mpfr_ceil operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1921</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1923method ceil gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1933<ceil argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1942<ceil  mpfr-program  mpfr_ceil .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1951int <-LNmpfr_cotlanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_cot direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1954<<determine-foreign-address <<get-ff-n-args-closure mpfr_cot set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1955<mpfr_cot fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1956LN<mpfr_cot operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1957</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1959method cot gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg1969<cot argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg1978<cot  mpfr-program mpfr_cot .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg1987int <-LN mpfr_cothlanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_coth direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg1990<<determine-foreign-address <<get-ff-n-args-closure  mpfr_coth set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg1991< mpfr_coth fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg1992LN< mpfr_coth operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg1993</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag1995method coth gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2005<coth argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2014<coth  mpfr-program  mpfr_coth .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2023int <-LNmpfr_csclanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_csc direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg2026<<determine-foreign-address <<get-ff-n-args-closure mpfr_csc set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2027<mpfr_csc fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2028LN<mpfr_csc operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2029</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2031method csc gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2041<csc argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2050<csc  mpfr-program mpfr_csc .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2059int <-LN mpfr_cschlanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_csch direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg2062<<determine-foreign-address <<get-ff-n-args-closure  mpfr_csch set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2063< mpfr_csch fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2064LN< mpfr_csch operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2065</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2067method csch gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2077<csch argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2086<csch  mpfr-program  mpfr_csch .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2095int <-LNmpfr_erflanguage c LN<<!<mpfr  simple-array integer !!!!<-mpfr_erf direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N*p3+ @<<QAg2098<<determine-foreign-address <<get-ff-n-args-closure mpfr_erf set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2099<mpfr_erf fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2100LN<mpfr_erf operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2101</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2103method erf gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2113<erf argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2122<erf  mpfr-program mpfr_erf .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2131int <-LN mpfr_erfclanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_erfc direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NNp3+ @<<QAg2134<<determine-foreign-address <<get-ff-n-args-closure  mpfr_erfc set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2135< mpfr_erfc fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2136LN< mpfr_erfc operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2137</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2139method erfc gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2149<erfc argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2158<erfc  mpfr-program  mpfr_erfc .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2167int <-LN mpfr_exp2language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_exp2 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nrp3+ @<<QAg2170<<determine-foreign-address <<get-ff-n-args-closure  mpfr_exp2 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2171< mpfr_exp2 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2172LN< mpfr_exp2 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2173</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2175method exp2 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2185<exp2 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2194<exp2  mpfr-program  mpfr_exp2 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2203int <-LN mpfr_exp10language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_exp10 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg2206<<determine-foreign-address <<get-ff-n-args-closure  mpfr_exp10 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2207< mpfr_exp10 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2208LN< mpfr_exp10 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2209</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2211method exp10 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2221<exp10 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2230<exp10  mpfr-program  mpfr_exp10 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2239int <-LN mpfr_gammalanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_gamma direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg2242<<determine-foreign-address <<get-ff-n-args-closure  mpfr_gamma set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2243< mpfr_gamma fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2244LN< mpfr_gamma operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2245</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2247method gamma gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2257<gamma argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2266<gamma  mpfr-program  mpfr_gamma .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2275int <-LN mpfr_lngammalanguage c LN<< !< mpfr  simple-array integer !!!!<- mpfr_lngamma direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg2278 < < determine-foreign-address < <get-ff-n-args-closure  mpfr_lngamma set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @< <QAg2279 <  mpfr_lngamma fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @< <QAg2280 LN<  mpfr_lngamma operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @< <QAg2281</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote < "/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2283method lngamma gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2293<lngamma argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2302<lngamma  mpfr-program  mpfr_lngamma .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2311int <-LN mpfr_log2language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_log2 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N p3+ @<<QAg2314<<determine-foreign-address <<get-ff-n-args-closure  mpfr_log2 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2315< mpfr_log2 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2316LN< mpfr_log2 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2317</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2319method log2 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2329 < log2 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @< <QAg2338! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<+<<*<,QAg2365-<-log1p argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<-<QAg2374.<.log1p  mpfr-program  mpfr_log1p .inv-get /$UV,FV vRP^׋ɋu null 0+ @<.<QAg2383/int <-LNmpfr_nexttozerolanguage c LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @<8<<7<9QAg2401:<: nexttozero argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<:<QAg2410;<; nexttozero  mpfr-program mpfr_nexttozero .inv-get /$UV,FV vRP^׋ɋu null 0+ @<;<QAg2419<int <-LNmpfr_nextabovelanguage c LN<<<>!<=mpfr  simple-array integer !!!!<-mpfr_nextabove direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nn p3+ @<<<QAg2422?determine-foreign-address <=<get-ff-n-args-closure mpfr_nextabove set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2427Emethod  nextabove gmpfr LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<_<<^<`QAg2509a ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2617<sqr argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2626<sqr  mpfr-program mpfr_sqr .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2635int <-LN mpfr_sub1language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_sub1 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NF p3+ @<<QAg2638<<determine-foreign-address <<get-ff-n-args-closure  mpfr_sub1 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2639< mpfr_sub1 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2640LN< mpfr_sub1 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2641</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2643method sub1 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2653<sub1 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2662<sub1  mpfr-program  mpfr_sub1 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2671int <-LN mpfr_add1language c LN<<!<mpfr  simple-array integer !!!!<- mpfr_add1 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nj p3+ @<<QAg2674<<determine-foreign-address <<get-ff-n-args-closure  mpfr_add1 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2675< mpfr_add1 fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2676LN< mpfr_add1 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2677</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2679method add1 gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2689<add1 argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2698<add1  mpfr-program  mpfr_add1 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2707int <-LN mpfr_zetalanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_zeta direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N p3+ @<<QAg2710<<determine-foreign-address <<get-ff-n-args-closure  mpfr_zeta set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2711< mpfr_zeta fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2712LN< mpfr_zeta operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2713</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2715method zeta gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2725<zeta argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2734<zeta  mpfr-program  mpfr_zeta .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2743int <-LN mpfr_zero_planguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_zero_p direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N p3+ @<<QAg2746<<determine-foreign-address <<get-ff-n-args-closure  mpfr_zero_p set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2747< mpfr_zero_p fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2748LN< mpfr_zero_p operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2749</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2751method zero_p gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2761<zero_p argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2770<zero_p  mpfr-program  mpfr_zero_p .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg2779int <-LN mpfr_trunclanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_trunc direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N p3+ @<<QAg2782<<determine-foreign-address <<get-ff-n-args-closure  mpfr_trunc set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2783< mpfr_trunc fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2784LN< mpfr_trunc operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2785</uÐ null 0(+ @<<QA< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag2787method trunc gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2797<trunc argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg2806<trunc  mpfr-program  mpfr_trunc .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QA< lisp2mpfr2 / UV4U3҃ uRP^ɋu xans02{Nans p3+ @Ag2808method  lisp2mpfr integer gmpfr LN< find-class !! qualifiers  specializers  lambda-list x !ans !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\g^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA< *rndmode* determine-foreign-address quote ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA< numerator into  denominator  alloc-mpfr  *rndmode* determine-foreign-address quote <"/LUVtUE܋^׋U^W'EE܋^׉Eԋ^׋ЋEԋ^W']SEЋE@ŰUЋREȋN"AO;H}D@v&EĉUEMQIuYY $MQIuYYL$MQIuYYL$MQuY YyI}ىL$ śoL$7iy jA7]ċ7YSu79y ta 17EɋuÐ xans0( 2{N ans n x d p3+ @Ag2814method  lisp2mpfr rational gmpfr LN<! find-class !! qualifiers  specializers  lambda-list x !ans !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< *rndmode* determine-foreign-address quote <_"/kUV\@ڋZUNQO;J}T RvE\$]؉UԋMQIuYY $MQuY YyI}ىL$ śoL$7iy jA7]܋7YSu79y ta 17EɋuÐ xr0(2{Nr in p3+ @Ag2817method  lisp2mpfr  double-float gmpfr LN< find-class !! qualifiers  specializers  lambda-list x !r !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA< lisp2mpfr /*UV,U@3U^W'ɋuÐ xr02{Nr p3+ @Ag2820method  lisp2mpfr  single-float gmpfr LN< find-class !! qualifiers  specializers  lambda-list x !r !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA<determine-foreign-address quote <"/iUV\ZU@vE܉]؉EԋMQIuYY $MQIuYYL$3QuY YyI}ىL$śoL$ 7iy jA7]܋7YSu79y ta 17EɋuÐ xr0(2{Nr p3+ @Ag2823method  lisp2mpfr gmpfr !LN<! find-class ! qualifiers  specializers  lambda-list x !r !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg2825<dynamic-extent-arguments copy compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA< alloc-mpfr determine-foreign-address quote <"/oUV\E^׋XE܋URvE؉]ԉUЋMQIuYY $MQIuYYL$3QuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17Eɋu x0(2{Nx r p3+ @Ag2828<lexically-visible-function <copy  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<<copy QAg2830@<copy %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg2831LN<copy operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2832</uÐ null 0(+ @<<QAg2833<dynamic-extent-arguments  sum-mpfr-list compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<create_mpfr_zero determine-foreign-address quote RP3ɱW/EԋE܋VBW+EF63҃ uRP3ɱW/UEF:uvFRP3ɱW/EЋE܋VJW+EF63҃ uRP3ɱW/UEF:uvNRP3ɱW/EȋU3ɱW/U؉EuuuuRP3ɱW/ɋuÐ  **macroarg**..environment..02{Ntwo-arg op pgm  **macroarg** p3+ @Ag2872< defcomparison lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<<< defcomparison QAg2874@< defcomparison macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<<QAg2875< defcomparison fboundp op pgm .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2876< defcomparison %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg2877LN< defcomparison operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2878 < /uÐ null 0(+ @< <QAg2887 int <-LN mpfr_less_planguage c LN< < !< mpfr  simple-array integer !!! mpfr_less_p direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NB p3+ @< <QAg2890 <1<2LN< < determine-foreign-address < <get-ff-n-args-closure  mpfr_less_p set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @< <QAg2891< mpfr_less_p fboundp op1 op2 .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2892LN< mpfr_less_p operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2893</uÐ null 0(+ @<<QA<determine-foreign-address quote < "/aUVL@RvEE܉U؋MQIuYY $MQIuYYL$śoL$7iy jA7]7YSu79y ta 17t GɋuË arg1arg20(+ @Ag2895method  two-arg-< gmpfr !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<into determine-foreign-address quote < "/gUVTU^׋@][vE܉E؉]ԋMQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(2{Narg2 p3+ @Ag2898method  two-arg-< real gmpfr LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA<into determine-foreign-address quote < "/eUVL@E‹^׋@vE܉E؋MQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(+ @Ag2901method  two-arg-< gmpfr real LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QAg2903</uÐ null 0(+ @<<QAg2912int <-LNmpfr_lessequal_planguage c LN<<!<mpfr  simple-array integer !!!mpfr_lessequal_p direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N[ p3+ @<<QAg2915 < <determine-foreign-address <<get-ff-n-args-closure mpfr_lessequal_p set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @< <QAg2916! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<&<<%<'QA(<(into determine-foreign-address quote <"/gUVTU^׋@][vE܉E؉]ԋMQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(2{Narg2 p3+ @Ag2923)method  two-arg-<= real gmpfr LN<)! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <(plist  documentation load-defmethod <*operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<)<<(<*QA+<+into determine-foreign-address quote <"/eUVL@E‹^׋@vE܉E؋MQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(+ @Ag2926,method  two-arg-<= gmpfr real LN<,! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <+plist  documentation load-defmethod <-operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<,<<+<-QAg2928.<./uÐ null 0(+ @<.<QAg2937/int <-LNmpfr_greaterequal_planguage c LN= gmpfr !LN<8! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <7plist  documentation load-defmethod <9operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<8<<7<9QA:<:into determine-foreign-address quote <1"/gUVTU^׋@][vE܉E؉]ԋMQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(2{Narg2 p3+ @Ag2948;method  two-arg->= real gmpfr LN<;! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <:plist  documentation load-defmethod <<operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<;<<:<<QA=<=into determine-foreign-address quote <1"/eUVL@E‹^׋@vE܉E؋MQIuYY $MQIuYYL$śoL$7iy jA7]܋7YSu79y ta 17t GɋuË arg1arg20(+ @Ag2951>method  two-arg->= gmpfr real LN<>! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <=plist  documentation load-defmethod Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<><<= gmpfr !LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @ real gmpfr LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ gmpfr real LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<\<<[<]QA^<^into determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<_<<^<`QAaWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋu null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<{< ׋FBVF vJRP^N׋ɋuÐ null 0+ @<~<<}<QAg3038<dynamic-extent-arguments time-sin compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<into sin /v;UV4E3^jE܉EE܋ ]u ;E|ɋuËU䋟W';tE^3Ҳ]upE܋E믋Ë_W' n02{Nn f1 i p3+ @Ag3041<lexically-visible-function <time-sin  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<<time-sin QAg3044@<time-sin %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg3045LN<time-sin operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg3046</uÐ null 0(+ @<<QAg3047<dynamic-extent-arguments  time-sin2 compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<into determine-foreign-address quote <"/:UVdE3^׉E3^׋]̋[]XEjEԉ]؋Eԋ ]u;E|EɋuËU䋟W';tvEȋMQIuYY $MQIuYYL$3QuY YyI}ىL$śoL$ 7iy jA7]ȋ7YSu79y ta 173Ҳ]upE Ë_W' n0(2{Nn in ans ina i f1 p3+ @Ag3050<lexically-visible-function < time-sin2  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<< time-sin2 QAg3053@< time-sin2 %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg3054LN< time-sin2 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg3055</uÐ null 0(+ @<<Qoneroot Hrootfinder failed to converge. Residual at ~s is ~s after ~s iterations.abs <  two-arg-/  two-arg-- /rUVW'ɋuË׋UċW';t^B׋Uԃ uRP^F3Ҳ]up EȋEHË_W' rs0 2{N lans z s rfft ans r sfft i  lr  p3+ @ prodarray  two-arg-* 1+ aref_1d into " *rndmode* determine-foreign-address quote ׋]Ћ[UċRFB@hN"YO;K}\ [vFd`\X`QIuYY $hQIuYYL$\QIuYYL$XQuY YyI}ىL$ śoL$7iy jA7d7YSu79y ta 17^B[]]̋[UȋRFJ@TN"YO;K}\ [vNPLHDLQIuYY $TQIuYYL$HQIuYYL$DQuY YyI}ىL$ śoL$7iy jA7P7YSu79y ta 17^J[VRRN"AO;H}D@vV@<84׃E];]Eɋu rslenans0(-2{N-i r s ind1 ind a b c d a1 !!a2 tt !!!!!!!!!!!!!-p3+ Ag3114@<special onehalf simple-augment-environment /&UVQIuYY $QIuYYL$QIuYYL$QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17^B[UB]CN:AO;H}D@vF|QIuYY $QIuYYL$QIuYYL$|QuY YyI}ىL$ śoL$7iy jA77YSu79y ta 17]؋SExPEtPvJplxQIuYY $tQIuYYL$lQIuYYL$3QuY YyI}ىL$ śoL$7iy jA7p7YSu79y ta 17^N[]؋SEhPFR@dN:QO;J}T RvV`\X\QIuYY $hQIuYYL$dQIuYYL$XQuY YyI}ىL$ śoL$7iy jA7`7YSu79y ta 17^R[VZRN:AO;H}D@v^TPLHPQIuYY $QIuYYL$LQIuYYL$HQuY YyI}ىL$ śoL$7iy jA7T7YSu79y ta 17^Z[UЋBDN:YO;K}\ [vb@<8 ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <<<QAg3163@< one-arg-log argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<top-level-form <QAg3168@< one-arg-log  mpfr-program mpfr_log .inv-get /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <QAg3177@int <-LN mpfr_atanlanguage c LN<<!<mpfr  simple-array integer !!!!<- mpfr_atan direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nd p3+ @<top-level-form <QAg3179@<<determine-foreign-address <<get-ff-n-args-closure  mpfr_atan set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<top-level-form <QAg3180@< mpfr_atan fboundp target op1 rnd .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <QAg3181@LN< mpfr_atan operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <QAg3182@</uÐ null 0(+ @<top-level-form <QA@< alloc-mpfr  *rndmode* determine-foreign-address quote <"/|UVdE^׋XE܋URNAO;H}D@vE؉]ԉUЉE̋MQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ arg0(2{Narg h in p3+ @Ag3184method  one-arg-atan gmpfr LN<! find-class ! qualifiers  specializers  lambda-list arg !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <<<QAg3190@< one-arg-atan argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<top-level-form <QAg3195@< on-arg-atan  mpfr-program  mpfr_atan .inv-get /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <QA@< *rndmode* determine-foreign-address quote <"/eUVL@NYO;K}\ [vEE܉]؋MQIuYY $MQuY YyI}ىL$śoL$7iy jA7]7YSu79y ta 17ɋu z0(+ @Ag3197method  truncate2fix gmpfr LN<! find-class ! qualifiers  specializers  lambda-list z !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <3<<QA@<gmpinto8 gmpz-z8  *rndmode* determine-foreign-address quote <"/UVdE3^׉E^׋][NQO;J}T RvE؉Eԉ]ЉŰMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]؋7YSu79y ta 17EɋuÐ f0(2{Nf ans p3+ @Ag3200method  truncate2z gmpfr LN<! find-class ! qualifiers  specializers  lambda-list f !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <<<QA@<into determine-foreign-address quote <"/UVdEU3^׋XE؋URvEԉ]ЉŰMQIuYY $MQIuYYL$MQuY YyI}ىL$3QuY YyI}ىL$ śoL$7iy jA7]ԋ7YSu79y ta 17Eɋu fh0(2{Nf h fans p3+ @Ag3203method  scale-float gmpfr fixnum LN<! find-class ! qualifiers  specializers  lambda-list f !h !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /z=UV\F^׉E䋇^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<top-level-form <;<<QA@<into argnum dsetv /uUVL][[]tȀuHpu ^ɋuËIt E؋EE؋@VGW';t]QKQYBREʋSRW?]؋S[U܋+CUЋUrẺEԋCű3AW#UW+]ԋ;uыW_ЋEW+UEȋF uRP3ɱW/J r0 2{N .lambda-lexical-env. r  closure A maketempsp!*names* p p3+ @A< two-arg-+ /]UV<][[tȀu8Hpu-QKAY]3Ҳ^W']E܋SRW?EɋuËItEQKAY]3Ҳ^W']SRW?][] UrEЋC]ԋuЋ3AW#]ԋ[;u܋E r0 2{N.lambda-lexical-env. r    closure Act1p! *howmany* pp3+ @A<into /TUV;MjEFBV:v"uv6RP_׋UEuuRP3ɱW/@;}uhUFF3ɱW/EE܋UW+ЋF3ɱW/ЋF63ɱW/ЋE vJRP_׋ЋFN vRRP_jEUȕEE؋IuZ3@;u;EtQE؋IjEE@;uEU܉EFVuuuRP׋몃}]؋SF23ɱW/^׋ЋF3ɱW/ЋF63ɱW/EUF3ɱW/ЋF:3ɱW/ЋE3ɱW/EEVZW+UEuuRP3ɱW/4}]؋SF23ɱW/^׋ЋF3ɱW/ЋF63ɱW/Eԋ]؋[SF23ɱW/^׋ЋF3ɱW/ЋF^3ɱW/EUF3ɱW/ЋF:3ɱW/|EԋU |RP3ɱW/EEVbW+UxuxvfRP3ɱW/U܋FjW'  **macroarg**..environment..02{Ntarg the-op op args gg !ex  **macroarg** p3+ @Ag3237<dsetv lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<top-level-form <t<dsetv QAg3246@<dsetv macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <tQAg3247@<dsetv fboundp targ ex .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <tQAg3248@<dsetv %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<top-level-form <tQAg3249@dsetv operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <tQAg3250@</uÐ null 0(+ @<top-level-form <tQAg3255@<1+ fp_si_op .inv-get /$UV,FV wRP^׋ɋu null 0+ @<top-level-form <QAg3260@<1+ argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<top-level-form <QAg3265@<1- fp_si_op .inv-get /$UV,FV wRP^׋ɋu null 0+ @<top-level-form <*QAg3270@<1- argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<top-level-form <HQAg3275@<1+  mpfr-program  mpfr_add_si .inv-get /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <dQAg3280@<1-  mpfr-program  mpfr_add_si .inv-get /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <Q2xAg3281@<top-level-form < macro-calls twobytwo /  defcomparison r  defarithmetic defmacro  make-array  defmethod  defparameter  sy_function definef define-compiler-macro defun defsetf  defstruct list setf def-foreign-call def-foreign-type record-source-file boundp augment-environment declaim defvar  direct-calls store-doc-forms  load-scm-info update-xref-info  two-arg-/ into macro-function .inv-macro-function  find-class load-defmethod notify-clos-of-new-structure compute-struct-cpl copy-defstruct-description get-dd-predicate-closure memref symbol-function cons compiler-macro-function compiler-proclaim  share-conses  ce-putprop ce-get check-lock-definitions .inv-symbol-function get-built-in-accessor putprop check-lock-def-defstruct  set-func_name get-ff-apply-closure remprop fboundp .inv-func_formals set-function-1 determine-foreign-address get-ff-n-args-closure .inv-get ensure-foreign-type record-source-file-1 eq not simple-augment-environment internal-in-package  defpackage-1 +sets onehalf *one* *zz*  *mindigs* stexpon  mpfrformat  *rndmode* *source-pathname*   references !F!G!H!I!J!K!L!M  mpfr_set_str !N*load-verbose* !lispval-other-to-address free  ff-funcall  .inv-aref_1d aref_1d string-to-octets short-simple-array-p pointer-to-address !>=_2op  structure-ref ef-nulls -_2op native-string-sizeof +_2op  array-base simple-string-p !Aruntime-find-external-format length stringp !let*  .inv-s-aref aref ! svdata-ptr 1+ wdea-interpreted-p >= 1- !with-dynamic-extent-usb8-array - + setq unless when find-external-format if* with-native-string  mpfr_get_str !!S check-args  make-gmpfr ! new-struct !!<!bq-list* bq-quote !bq-list !list* create-key-initializers !8compiler-macro-argument-check cdr car !@consp !A <!!!{!outof  alloc-mpfr !schedule-finalization  mpfr_init !Zgmpfr-f !x!!!w<!N!K!!fformat eql !1- string-right-trim !subseq !U!@create_string_from_mpfr <!N!I!J!elt values !!Z!!u<!* !n< !mstring= !N!J!expt *_2op !^<_2op !b!!\ parse-integer internal-string= !!!Z!!ucs !! !q!k!!!n!h!e!f!!j!!>_2op !!^!T!!!Ugmpfr-p !Y!!!b dfa2v !!^!T!!U! round_1ret !Y!!b! !!n!h!e!!fround !!j!!  polymultfft !!n!h!e!!!j! ceiling !! !! prodarray !^!T!!Y!!!four1 ! ceiling_1ret ash ! !b!!N!L!!^!!T!!!Z!!!U1+ !!Y !!n!h!edsetv  with-temps !!f!! !j !!!!!m!jfloor !d!e!n!k!f!q!!!!! !N!L!H!!!! mpfr_sin_cos !!!Z!!\!Y!A floor_1ret !T!^!U!!asin !!!<!N!L!mpfr_log !Z!!<!N!L! mpfr_atan !Z!!<!N!L!!Z! mpfr_get_si <!N!L!!Z!gmpz-z8  mpfr_get_z into8 <!!Z! mpfr_mul_2si !!"!!!!!<<!< macroexpand !!!<!!!^ inv-memref !general-error-handler-one !!Arplacd !!* !loop-collect-answer !n!h!!loop-collect-rplacd !!q!with-loop-list-collection-head ! <!mapc !!!! !!!<!!!!A! numberp <!!!pop !z!!{!get atom  !!<!!!*!!get_2op !!A!!6 !!!!case !8cadr !ycaddr !"append  bq-append !!z!!{!!9!!!!!!b!!:!|gensym  append_2op !*!@!!A!.!!!!/ UV$F^׋ɋuÐ null 0+ @32x<top-level-form <Q32yAg3282@<dsetv operator < with-temps !< mpfr_atan !<mpfr_log !<four1 !!!onehalf variable < prodarray !!! polymultfft !! !dfa2v !! !*one* !<*zz* !<v2dfa !! !newzero !< polyrootmpfr !!!polyeval !!!deriv !!!oneroot !!!gmpfr type <gmpfr-f !<! setf-method < make-gmpfr !<!compiler-macro < copy-gmpfr !<gmpfr-p !< mpfrformat !< alloc-mpfr !<stexpon !<  *mindigs* !<cs !<into !<'l2g !<4create_mpfr_zero !<> defarithmetic ! mpfr_asinh !