z#<> qd.lisp by nil on RJF-E510 at 2007/9/23 16:52:23\ 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)IAg4142<*source-pathname* pathname qdlisp unspecific qd.lispC.\  /UV$VFɋuÐ null 0+ @qd.lispLN<top-level-form <QAg4143@<qd use AgaAclshadowing-import-from Aga+-/*expt=/=><<=>=1-1+absincfdecfminmaxAsinAcosAtanAasin Aacos Aatan Alog Aexp AsinhAcoshAtanhAasinhAacoshAatanhAsqrtAtoclA numeratorA denominatorAexpt'export Ainto defpackage-1 /UV$FV^W'ɋuÐ null 0+ @<top-level-form <,QAg4144@<qd internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <QAg4145@<optimize speed safety space compilation-speed compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<top-level-form <)QAg4146@<qdcqd  definition array double foreign-functionsensure-foreign-type /*UV,VvvRP^׋ɋu null 0+ @top-level-form <LN<<QAg4147 @< cdd  definition array double ensure-foreign-type /*UV,VvvRP^׋ɋu null 0+ @< <QAg4148!void null LN c_qd_copylanguage c LN<><@!<QAg4205A<9<9LLN ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA< environment make-load-form-saving-slots /.UV4~UV uRP^ɋuÉ}U a &optional  environment02{N environment p3+ @Ag4397method make-load-form aqd LN<! find-class ! qualifiers  specializers  lambda-list a ! &optional  environment 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+ @<<<<QA<qd2lisp / UV$^ɋuÐ x0+ @Ag4400method gaoutof; aqd LN<! find-class ! qualifiers  specializers  lambda-list x !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+ @<<<<QA<nan-p + elt rational /UUV ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA</uÐ y0(+ Ag4411method qd2lisp t LN< find-class ! qualifiers  specializers  lambda-list y function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /d2UV\G‹^׋W+EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋuÐ null 0+ @<<<<QAg4413<dynamic-extent-arguments into compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<lisp2qd  element-type initial-element  allocation lispstatic-reclaimable  make-array aqd /\.UVL~ ^W'ɋuÉEvE3Vv&v"uvRP^*׋ЋF.3ɱ3ЋE뱐 r &optional where02{Nwhere r p3+ @Ag4416<lexically-visible-function <into  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<<into QAg4418@<into %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg4419LN<into operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4420</uÐ null 0(+ @<<QA</H$UV4@ZU3%]DڋE܋E\؋E܃|֋EɋuÐ xans02{Nans ina inx p3+ @Ag4425method lisp2qd aqd !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/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA< numerator; into  denominator;  two-arg-/; /P(UV4UE^׋^׉E܋E^׋^׋ЋE܋^W'@UW?EɋuÐ xans02{Nans x p3+ @Ag4430method lisp2qd rational aqd 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<lisp2qd /4UV4UEUm3U܋^W'ɋuÐ xans02{Nans p3+ @Ag4433method lisp2qd fixnum t LN< find-class ! qualifiers  specializers  lambda-list x !ans function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\^׉EG‹^׋ЋE3ɱW/EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋu null 0+ @<<<<QA<to-double-float /BUV4E܋ZU3ڋ\]3Ҳu8p2]؋E3Ҳ u.;~7E܋^@ڋ][EɋuË_W'ċW';tɋ]E xans02{Nin ans x i p3+ @Ag4441method lisp2qd float aqd 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<abs  <; to-double-float lisp2qd signum into  two-arg-*; determine-foreign-address quote c_qd_mullanguage c M"!!c_qd_add! ! "!!! ">; !!! "/UVUE܋^׋V^W';tE܋^׋U^"W'ɋuË]SE܉U^&׉E3^*׋@EԋF.^*׋@EЋE3ҋ^W';Uܸ^2W'EV6E܋W'^*׋@v:EE̋MԍI $M̍IL$M̍IL$śoL$ 7iy jA7]7YSu79y ta 17Eܺ0cW'Ev>EMI $M̍IL$MIL$śoL$ 7iy jA7]7YSu79y ta 17vBEMԍI $MЍIL$MԍIL$śoL$ 7iy jA7]7YSu79y ta 17E3ҋ^FW';CE3ҋ^W';^*vJEEMI $MIL$MIL$śoL$ 7iy jA7]7YSu79y ta 17E5 xres0(2{Nres ans x s shifter shiftam newdig p3+ @Ag4448method lisp2qd integer t LN< find-class ! qualifiers  specializers  lambda-list x !res function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /z=UV\g^׉EG‹^׋ЋE3ɱW/EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋu null 0+ @<<<<QAg4450<dynamic-extent-arguments largest-power-less-than compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<abs ?log  floor_1ret  two-arg-expt; >=; 1-; /HUV4U~E3Ҩu;uɋuj(EዟW';uE^׋ЋFW'U^W'^׋ЋEU܋^"W'U^&W';t E܋^*똋E r &optional base02{Nbase r guess p3+ @Ag4453<lexically-visible-function <largest-power-less-than  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<<largest-power-less-than QAg4455@<largest-power-less-than %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg4456LN<largest-power-less-than operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4457</uÐ null 0(+ @<<QAg4458<dynamic-extent-arguments  decimalize compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA<largest-power-less-than abs expt  truncate_1ret signum /UVTUԃ]]UE܋^W'EE܋^׉E؋]U UU+Up3ҲE)UËUċ^W'ЋE؋W'^׉E̋E܋^"׋]3Ҳu_U]pWŨ uRP3ɱɋuj(EKEԋU]ЋW']Ћe]ЋW']ЉEhEȋË_W'EE rn &optional base0 2{N base expon r n frac p3+ @Ag4461<lexically-visible-function < decimalize  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<< decimalize QAg4463@< decimalize %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg4464LN< decimalize operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4465</uÐ null 0(+ @<<QAg4466<special *qd-digits-to-show* simple-augment-environment /&UVuuuRPu܏E x0 2{N e zx v{r p3+ @Ag4472method  qd2string aqd LN<! find-class ! qualifiers  specializers  lambda-list x !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+ @<<<<QA< symbol-name two-arg-concat-to-sstring_2op ga intern c_def-foreign-call op1 array double  simple-array  double-float op2 !!!! target !!!!  returning void  arg-checking  call-direct t strings-convert  a1 a2 in let* r make-aqd !aqd-q !!!arg1 !!arg2 declare optimize speed type !! !!!! defmethod !aqd !! !!!!into !!!!!!!!real !! !!!!!!!!!!!!!!! !!"quote argnum !# qd-program /fUVE33ҲuRP׋][SCUԋPUEԋ^׋ЋF^W'V^"W'EE^׋ЋF&^W'ЋE3ɱW/ЋF* v.RP_׉E܋EV2W+EF6V:vBuv>RP_׋UEFFuvJRP3ɱW/E؋EVNW+EF6VRvBuv>RP_׋UEFFuvVRP3ɱW/EЋEVZW+EF6V^vBuv>RP_׋UEFFuvbRP3ɱW/E̋Uԋ3ɱW/Ћ vfRP_׋Ћ vjRP_׉EȋUԋ3ɱW/Ћ vnRP_׉EU3ɱW/UE uRP3ɱW/EċU䋇3ɱW/Ћ vnRP_׉EU3ɱW/UE uRP3ɱW/EU䋇3ɱW/Ћ vfRP_׋Ћ vjRP_׋U܉E$uuuuuuuRP3ɱ W/ɋuÐ  **macroarg**..environment..02{Ntwo-arg pgm op  **macroarg**  p3+ @Ag4480< defarithmetic lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<<< defarithmetic QAg4482@< defarithmetic macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<<QAg4483< defarithmetic fboundp op pgm .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg4484< defarithmetic %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg4485LN< defarithmetic operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4486</uÐ null 0(+ @<<QAg4495void null LNc_qd_addlanguage c LN<<!<array double  simple-array <5!!!<5!!!<5qd_add direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg4498<<determine-foreign-address <<\get-ff-n-args-closure qd_add set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg4499<qd_add fboundp op1 op2 target .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg4500LN<qd_add operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4501</uÐ null 0(+ @<<QA< element-type initial-element  allocation lispstatic-reclaimable  make-array aqd determine-foreign-address quote <"/uUVlEUvE3Vv"vuvRP^&׋ЋF*3ɱ3XE؋URE@v.EЉỦEȉ]ċM̍I $MȍIL$MčIL$śoL$ 7iy jA7]Ћ7YSu79y ta 17EɋuÐ arg1arg20( 2{N arg1 arg2 r a1 a2 in  p3+ @Ag4503 method  two-arg-+; aqd !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 <"/UUV\U^׋XE܋URvEԉ]؉UЋM؍I $MЍIL$M؍IL$śoL$ 7iy jA7]ԋ7YSu79y ta 17Eɋu arg1arg20(2{Narg2 r in a2 p3+ @Ag4506 method  two-arg-+; real aqd 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 <"/VUV\E‹^׋XE܋URvEԉUЉ]؋MЍI $M؍IL$M؍IL$śoL$ 7iy jA7]ԋ7YSu79y ta 17Eɋu arg1arg20(2{Narg1 r in a1 p3+ @Ag4509method  two-arg-+; aqd 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+ @<<<<QAg4519<+; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4528<+;  qd-program qd_add .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4537< two-arg-+;  qd-program qd_add .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4546< two-arg-+; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4555void null LNc_qd_sublanguage c LN<<!<array double  simple-array <5!!!<5!!!<5qd_sub direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg4558<<determine-foreign-address <<\get-ff-n-args-closure qd_sub set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg4559<qd_sub fboundp op1 op2 target .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg4560LN<qd_sub operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg4561</uÐ null 0(+ @<<QA< element-type initial-element  allocation lispstatic-reclaimable  make-array aqd determine-foreign-address quote <"/uUVlEUvE3Vv"vuvRP^&׋ЋF*3ɱ3XE؋URE@v.EЉỦEȉ]ċM̍I $MȍIL$MčIL$śoL$ 7iy jA7]Ћ7YSu79y ta 17EɋuÐ arg1arg20( 2{N arg1 arg2 r a1 a2 in  p3+ @Ag4563method  two-arg--; aqd !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 <"/UUV\U^׋XE܋URvEԉ]؉UЋM؍I $MЍIL$M؍IL$śoL$ 7iy jA7]ԋ7YSu79y ta 17Eɋu arg1arg20(2{Narg2 r in a2 p3+ @Ag4566!method  two-arg--; real aqd LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<$<<#<%QAg4579&<&-; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<&<QAg4588'<'-;  qd-program qd_sub .inv-get /$UV,FV vRP^׋ɋu null 0+ @<'<QAg4597(<( two-arg--;  qd-program qd_sub .inv-get /$UV,FV vRP^׋ɋu null 0+ @<(<QAg4606)<) two-arg--; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<)<QAg4615*void null LNc_qd_mullanguage c LN<*<,!<+array double  simple-array <5!!!<5!!!<5qd_mul direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<*<QAg4618-<-<,determine-foreign-address <+<\get-ff-n-args-closure qd_mul set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<-<QAg4619.<.qd_mul fboundp op1 op2 target .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<.<QAg4620/LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @<3<<2<4QA5<5into determine-foreign-address quote <,"/UUV\U^׋XE܋URvEԉ]؉UЋM؍I $MЍIL$M؍IL$śoL$ 7iy jA7]ԋ7YSu79y ta 17Eɋu arg1arg20(2{Narg2 r in a2 p3+ @Ag46266method  two-arg-*; real aqd LN<6! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <5plist  documentation load-defmethod <7operator record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<6<<5<7QA8<8into determine-foreign-address quote <,"/VUV\E‹^׋XE܋URvEԉUЉ]؋MЍI $M؍IL$M؍IL$śoL$ 7iy jA7]ԋ7YSu79y ta 17Eɋu arg1arg20(2{Narg1 r in a1 p3+ @Ag46299method  two-arg-*; aqd real LN<9! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <8plist  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+ @<9<<8<:QAg4639;<;*; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<;<QAg4648<<<*;  qd-program qd_mul .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<<QAg4657=<= two-arg-*;  qd-program qd_mul .inv-get /$UV,FV vRP^׋ɋu null 0+ @<=<QAg4666><> two-arg-*; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<><QAg4675?void null LNc_qd_divlanguage c LNp3+ @ ׋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+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<[<Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<^<<]<_QA`<`ga intern c_qd_~aprinc pqd_~a!pdef-foreign-call op1 array double  simple-array  double-float target !!!! returning void  arg-checking  call-direct t strings-convert  aqd-q arg in let* h make-aqd !!!declare optimize speed type !!!! defmethod !aqd quote argnum ! qd-program /UVlE33ҲuRP׋]ȋ[S‰UЋV^W'ENjV uRP׉E̋NjV uRP׋^׋ỦE3ɱW/ЋF" v&RP_׉E܋EV*W+EF.V2v:uv6RP_׋UEF>uvBRP3ɱW/E؋U䋇3ɱW/Ћ vFRP_׋Ћ vJRP_׉EԋU䋇3ɱW/Ћ vNRP_׉EċU3ɱW/UĉE uRP3ɱW/U܉EuuuRP3ɱW/ɋuÐ  **macroarg**..environment..0 2{N fun-name qd-symb op cqd-name  **macroarg**  p3+ @Ag4743a ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<~<<}<QAg4812<sin; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4821<sin;  qd-program qd_sin .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4830void null LNc_qd_coslanguage c LN<<!<array double  simple-array <5!!!<5qd_cos direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg4833<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg4848<cos; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4857<cos;  qd-program qd_cos .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4866void null LNc_qd_tanlanguage c LN<<!<array double  simple-array <5!!!<5qd_tan direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg4869<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg4884<tan; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4893<tan;  qd-program qd_tan .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4902void null LNc_qd_explanguage c LN<<!<array double  simple-array <5!!!<5qd_exp direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{N!p3+ @<<QAg4905<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg4920<exp; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4929<exp;  qd-program qd_exp .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4938void null LN c_qd_log10language c LN<<!<array double  simple-array <5!!!<5qd_log10 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NEp3+ @<<QAg4941<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg4956<log10; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg4965<log10;  qd-program qd_log10 .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg4974void null LN c_qd_asinlanguage c LN<<!<array double  simple-array <5!!!<5qd_asin direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nip3+ @<<QAg4977<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg4992<asin; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5001<asin;  qd-program qd_asin .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5010void null LN c_qd_acoslanguage c LN<<!<array double  simple-array <5!!!<5qd_acos direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5013<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5028<acos; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5037<acos;  qd-program qd_acos .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5046void null LN c_qd_sinhlanguage c LN<<!<array double  simple-array <5!!!<5qd_sinh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5049<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5064<sinh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5073<sinh;  qd-program qd_sinh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5082void null LN c_qd_coshlanguage c LN<<!<array double  simple-array <5!!!<5qd_cosh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5085<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5100<cosh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5109<cosh;  qd-program qd_cosh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5118void null LN c_qd_tanhlanguage c LN<<!<array double  simple-array <5!!!<5qd_tanh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5121<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5136<tanh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5145<tanh;  qd-program qd_tanh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5154void null LN c_qd_asinhlanguage c LN<<!<array double  simple-array <5!!!<5qd_asinh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5157<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5172<asinh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5181<asinh;  qd-program qd_asinh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5190void null LN c_qd_acoshlanguage c LN<<!<array double  simple-array <5!!!<5qd_acosh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{NAp3+ @<<QAg5193<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @< << <QAg5208<acosh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5217<acosh;  qd-program qd_acosh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5226void null LN c_qd_atanhlanguage c LN<<!<array double  simple-array <5!!!<5qd_atanh direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nep3+ @<<QAg5229<<determine-foreign-address < ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QAg5244<atanh; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<<QAg5253<atanh;  qd-program qd_atanh .inv-get /$UV,FV vRP^׋ɋu null 0+ @<<QAg5262void null LN c_qd_sqrtlanguage c LN<< !<array double  simple-array <5!!!<5qd_sqrt direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<<QAg5265! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<'<<&<(QAg5280)<)sqrt; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<)<QAg5289*<*sqrt;  qd-program qd_sqrt .inv-get /$UV,FV vRP^׋ɋu null 0+ @<*<QAg5298+void null LNc_qd_neglanguage c LN<+<-!<,array double  simple-array <5!!!<5qd_neg direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Np3+ @<+top-level-form <o=QAg5300.@<.<-determine-foreign-address <, ׋FBVF vJRP^N׋ɋuÐ null 0+ @<4top-level-form <o=<3<5QAg53116@<6neg; argnum .inv-get /$UV,FV jRP^׋ɋuÐ null 0+ @<6top-level-form <o=QAg53167@<7neg;  qd-program qd_neg .inv-get /$UV,FV vRP^׋ɋu null 0+ @<7top-level-form <o=QA8@<8 element-type initial-element  allocation lispstatic-reclaimable  make-array aqd determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @<9top-level-form <^><8<:QA;@<; element-type initial-element  allocation lispstatic-reclaimable  make-array aqd into determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<top-level-form <><;<=QA>@<> element-type initial-element  allocation lispstatic-reclaimable  make-array aqd into determine-foreign-address quote plist  documentation load-defmethod <@operator !!!!!record-source-file-1 /x<UV\G‹^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<@QAA@Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋ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+ @RP3ɱW/E؋F2VJv6uRP_׉EċVNuvFRP3ɱW/UEF:uvBvRRP3ɱW/EԋF2VJv6uRP_׉EVVuvFRP3ɱW/UEF:uvBvZRP3ɱW/E̋U3ɱW/U؉EuuuRP3ɱW/ɋu  **macroarg**..environment..0 2{N two-arg op val  **macroarg** p3+ @Ag5349X ׋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+ @; aqd !LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @; real aqd LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @; aqd real LNWv: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+ @<Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<=; aqd !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+ @<=; real aqd 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+ @<=; aqd 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+ @< ׋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+ @<top-level-form <TI<<QA@<aqd-q  make-array  element-type quote  double-float initial-contents  allocation lispstatic-reclaimable make-aqd q /@UVLE33ҲuRP׋][SF3ɱW/EF3Ҳv&uv"vvRP_׉E܋F*V. uRP3ɱW/ɋuÐ  **macroarg**..environment..02{N **macroarg** p3+ @Ag5458<copy_mac lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<top-level-form <J<copy_mac QAg5460@<copy_mac macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <JQAg5461@<copy_mac fboundp a .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <JQAg5462@<copy_mac %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<top-level-form <JQAg5463@copy_mac operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <JQAg5464@</uÐ null 0(+ @<top-level-form <JQA@< element-type initial-element  allocation lispstatic-reclaimable  make-array aqd to-double-float determine-foreign-address quote <"/ vUVdEUvE3Vv"vuvRP^&׋ЋF*3ɱ3XE܉]ԋ][E]Ћ^.@v2E\$MЍI $MԍIL$ śoL$7iy jA7]ȋ7YSu79y ta 17EɋuÐ ad0(2{Na d targ in p3+ @Ag5466method addqd_d aqd real LN<! find-class !! qualifiers  specializers  lambda-list a !d !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+ @<top-level-form <K<<QA@<?addqd_d / UV$V^W'ɋuÐ a0+ @Ag5469method 1+; aqd LN<! find-class ! qualifiers  specializers  lambda-list a !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 <K<<QA@<addqd_d / UV$V^W'ɋuÐ a0+ @Ag5472method 1-; aqd LN<! find-class ! qualifiers  specializers  lambda-list a !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 <L<<QA@< macroexpand into aqd-q  qd_copy_into  qd-program argnum lval a1 tt !!let* declare optimize speed type  simple-array  double-float !!!!!!Jdsetv was given operator ~s which expects ~s args, but was given ~s -- ~s with-temps !!!! ! ! ! !!!!a2 !!!! ! ! ! !!!!!argnum is wrong for op ~s /UVE33ҲuRP׋][SCU@[^׋ItЋF uRP3ɱW/ɋuËX;^u&@EEW+ЋEW'ЋFW+͋X; E̋׋]̋SEЋBPE3ɱW/W+EȋUЋF3ɱW/E]̋[SF3ɱW/UEF uRP3ɱW/UȉEuuRP3ɱW/2X@E܋É]؋V"GW'EE؋V&GW'E;}u^UF*3ɱW/EE؋UW+ЋF3ɱW/ЋF.3ɱW/ЋE v2RP_׋ЋF6 v:RP_uďEE܋IuZ3@;u;EtQE܋IjEE@;uEU؉EF>uuuRP׋몃}]܋SFB3ɱW/^׋ЋF3ɱW/ЋF.3ɱW/EUF3ɱW/ЋFF3ɱW/ЋE3ɱW/EEVJW+UEuuvNRP3ɱW/1}]܋SFB3ɱW/^׋ЋF3ɱW/ЋF.3ɱW/Eԋ]܋[SFB3ɱW/^׋ЋF3ɱW/ЋFR3ɱW/EUF3ɱW/ЋFF3ɱW/EEԋU uRP3ɱW/EEVVW+UEuuvZRP3ɱW/U؋F^W'  **macroarg**..environment..02{Ntarg the-op args op gg ex ! **macroarg** p3+ @Ag5477<dsetv lexically-visible-function </&UV,F׃ vRP׋ɋu null 0+ @<top-level-form <ZM<dsetv QAg5480@<dsetv macro-function  set-func_name /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <ZMQAg5481@<dsetv fboundp targ ex .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<top-level-form <ZMQAg5482@<dsetv %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<top-level-form <ZMQAg5483@dsetv operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<top-level-form <ZMQAg5484@</uÐ null 0(+ @<top-level-form <ZMQA@<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{Ns.lambda-lexical-env. r tclosure 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 wy{closure Act1p! *howmany* pp3+ @A<into /TUV ׋FBVF vJRP^N׋ɋu null 0+ @<top-level-form < `<<QA@<determine-foreign-address quote ׋FBVF vJRP^N׋ɋu null 0+ @<top-level-form <`<<QA@< element-type initial-element  allocation lispstatic-reclaimable  make-array aqd sincos1 /UUVTEvE3Vv"vuvRP^&׋ЋF*3ɱ3EvE3Vv"vuvRP^&׋ЋF*3ɱ3E܋EU uRP^.׋EU3ɱɋuÐ a02{Na s c p3+ @Ag5561method sincos aqd LN<! find-class ! qualifiers  specializers  lambda-list a !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 <6a<<QA@< element-type initial-element  allocation lispstatic-reclaimable  make-array aqd sincosh1 /UUVTEvE3Vv"vuvRP^&׋ЋF*3ɱ3EvE3Vv"vuvRP^&׋ЋF*3ɱ3E܋EU uRP^.׋EU3ɱɋuÐ a02{Na s c p3+ @Ag5564method sincosh aqd LN<! find-class ! qualifiers  specializers  lambda-list a !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 <a<<Q@ compute-pi  element-type initial-element  allocation lispstatic-reclaimable  make-array aqd determine-foreign-address quote vJvFuvBRP^N׋ЋFR3ɱ3Uԃ uRP^V3Ҳ]up EȋE Ë_W' rs02{Nlans z rfft sfft ans s r i *(lr  p3+ @Ag5669 < lexically-visible-function <  polymultfft  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @< <<  polymultfft QAg5678 @<  polymultfft %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @< <QAg5679LN< polymultfft operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg5680</uÐ null 0(+ @<<QAg5681<dynamic-extent-arguments  polysquare compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA< two-arg-+; log;  ceiling_1ret v2dfa four1  two-arg-*; calc-array-size  prodarray isign dfa2v / lUV\E܋E܋I:3@;uËЋ^W'^W'E3Ҳ^W'^׋Ћc3W'ЋE܉U^W'U^"W'E؋U3^&W'I׉Eԋ^*W'׃WWhRP3ɱ;}t ]ԋS;tL]jEE[tW;uЋW+EȋE̋׃WWujuRP3ɱEЋEЉEЋE؋ЋƒuuRP^.׋EЋUjv2RP^"׋U^6W'ɋuËW+( r02{Nlans z r rfft 7ans p3+ @Ag5684<lexically-visible-function < polysquare  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<< polysquare QAg5689@< polysquare %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg5690LN< polysquare operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg5691</uÐ null 0(+ @<<QAg5692<dynamic-extent-arguments  prodarray compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<<QA< two-arg-*; 1+; aref_1d progn structure-allocate-instance quote aqd "M!.inv-structure-ref !!r @"Ndetermine-foreign-address !<,"!!!!"M!!! !r @"N! !<,"!!!!"M!!! !r ?"N! !<"copy  .inv-aref_1d !!!!"M!!!!r @"N! !<,"!!!!"M!!!!r @"N! !<,"!!!!"M!!!!r ?"N! !<"/RUVEU3{Ӊ]3^W'Eԋ^׉E؋EUԋ^W'EЋEU؋^W'E̋E܋Uԋ^W'EȋE܋U؋^W'Eċ]ЋSEȉUPF@v"EUEMI $MIL$MIL$śoL$ 7iy jA7]7YSu79y ta 17^[]]̋SEĉUPF&@v*EUEMI $MIL$MIL$śoL$ 7iy jA7]7YSu79y ta 17^&[V.Rv2E|xMI $|IL$xIL$śoL$ 7iy jA7]7YSu79y ta 17F.^6׋U uRP^:׋]Ћ[UċRF>@vBtplhpI $lIL$hIL$śoL$ 7iy jA7t7YSu79y ta 17^>[]]̋[UȋRFF@vJd`\X`I $\IL$XIL$śoL$ 7iy jA7d7YSu79y ta 17^F[VNRvRTPLMI $PIL$LIL$śoL$ 7iy jA7T7YSu79y ta 17FN^6׋U uRP^:׃E];]|Eɋu rslenans0('2{N'i r s ind1 ind a b c d a1 !!a2 tt !!!!!!!!!!!!!(p3+ @Ag5695<lexically-visible-function < prodarray  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<<< prodarray QAg5728@< prodarray %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg5729LN< prodarray operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg5730</uÐ null 0(+ @<<QAg5731<special qdtwopi simple-augment-environment /&UVW'EEU^>W'EuUE^>W'U RP^B׋EU^>W'U uRP^BuEU RP^B׋EU uRP^B׋]UEUGڃEUEɋuWKEEUW'Uȋ^FW'NJYO;K}\ [[UȋBZvNI $IL$IL$śoL$ 7iy jA77YSu79y ta 17^R[UȋB|]ĉxCvVtp|I $xIL$pIL$śoL$ 7iy jA7t7YSu79y ta 17]ċSEԉlPEhPvZd`lI $hIL$`IL$śoL$ 7iy jA7d7YSu79y ta 17^^[ ]ԋSE\PFb@vfXTP\I $TIL$PIL$śoL$ 7iy jA7X7YSu79y ta 17^b[UЋBvjLHD I $HIL$DIL$śoL$ 7iy jA7L7YSu79y ta 17^n[]ԋSC@VrRvv<84@I $8IL$4IL$śoL$ 7iy jA7<7YSu79y ta 17^r[UԋBvz0,(I $,IL$(IL$śoL$ 7iy jA707YSu79y ta 17EU܋^FW'EU؋^FW'3۳;]~&uE];+EӉ]uEUU]܋SUE^>W'@^~[$ I $ IL$IL$śoL$ 7iy jA7$7YSu79y ta 17^~[]]؋SE䉕U^>W'@[I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[UB MI $IL$IL$śoL$ 7iy jA7 7YSu79y ta 17]܋SE䉕U^>W'@[I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[]]؋SUE^>W'@[I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[UBMI $IL$IL$śoL$ 7iy jA77YSu79y ta 17UE^>W'@]SUE^>W'@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17UE^>W'EU^>W'@]SE䉕U^>W'@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17EU^>W'UE^>W'@]SUE^>W'@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17UE^>W'EU^>W'@]SE䉕U^>W'@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17EU^>W'MMU;U E܋Ű^FW']܋SEԉP@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[|R]؋CRI $IL$IL$śoL$ 7iy jA77YSu79y ta 17[UЋB[I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[R|I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[U܋BZ|xtI $xIL$tIL$śoL$ 7iy jA7|7YSu79y ta 17]؋SEԉpP@lhdpI $hIL$dIL$śoL$ 7iy jA7l7YSu79y ta 17[]̋SEЉ`P@\XT`I $XIL$TIL$śoL$ 7iy jA7\7YSu79y ta 17[RPLHI $LIL$HIL$śoL$ 7iy jA7P7YSu79y ta 17[U؋BDZ@<8DI $C3EډE3ЋE_W'E _W'EE3ЋEW' ]uG]+p@ËU^BW'@E]]Ћ]3Ҳu+p%E]UEЋEW'뮋Ë_W'ѐ kx 0 2{N !i p3+ @ legendre_pdbf and typep k quote fixnum <=; !assert-1 !into abs; =; 1+;  two-arg-*;  two-arg-/; progn structure-allocate-instance !aqd "M!.inv-structure-ref !!r ?"Ndetermine-foreign-address !<"!!!!"M!!!!r @"N!!!!"M!!!!r @"N!!<,"!!!!"M!!!!r ?"N!!!!"M!!!!r @"N!!<"!!!!"M!!!!r ?"N!!<,"!!!!"M!!!!r @"N!!<,"!!!!"M!!!!r ?"N!!!!"M!!!!r @"N!!<"!!!!"M!!!!r @"N!!<,"!!!!"M!!!!r @"N!!<"!!!!"M!!!!r ?"N!![UԋBl^B[vFhd`lI $dIL$`IL$śoL$ 7iy jA7h7YSu79y ta 17^B[VJRFN@vR\XTPXI $TIL$PIL$śoL$ 7iy jA7\7YSu79y ta 17^N[UBL^V[vZHD@LI $DIL$@IL$śoL$ 7iy jA7H7YSu79y ta 17^V[U؋B<^^[vb840I $IL$IL$śoL$ 7iy jA77YSu79y ta 17^:[VBRFF@vJI $IL$IL$śoL$ 7iy jA77YSu79y ta 17^F[U܋RFN@vRI $IL$IL$śoL$ 7iy jA77YSu79y ta 17^N[U؋RFV@vZ|I $IL$|IL$śoL$ 7iy jA77YSu79y ta 17^V[]]SF^@xVbRvftplxI $pIL$lIL$śoL$ 7iy jA7t7YSu79y ta 17^b[UԋRFj@vnhd`\dI $`IL$\IL$śoL$ 7iy jA7h7YSu79y ta 17^j[VrRvvXTPMI $TIL$PIL$śoL$ 7iy jA7X7YSu79y ta 17^r[URFz@v~LHD@HI $DIL$@IL$śoL$ 7iy jA7L7YSu79y ta 17EċVz^.W'ЋE^.W'Ћ^2W'ɋuËUȋW';E̋^׋ЉU3^.W'^"׋@]܋S\@XTP\I $TIL$PIL$śoL$ 7iy jA7X7YSu79y ta 17[U؋BL[HD@LI $DIL$@IL$śoL$ 7iy jA7H7YSu79y ta 17[E]^"׋@]ԋ[R<8408I $4IL$0IL$śoL$ 7iy jA7<7YSu79y ta 17[R,($MI $(IL$$IL$śoL$ 7iy jA7,7YSu79y ta 17U^2W'u؏EԉE3Ҳ]5+E̋E]S@ R I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[]]܋SE؉P@ I $IL$IL$śoL$ 7iy jA7 7YSu79y ta 17[UԋB[I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[RMI $IL$IL$śoL$ 7iy jA77YSu79y ta 17[]]܋SCRI $IL$IL$śoL$ 7iy jA77YSu79y ta 17[R@I $IL$IL$śoL$ 7iy jA77YSu79y ta 17[RMI $IL$IL$śoL$ 7iy jA77YSu79y ta 17EUË_W' kx0(j2{Njkf x t1 t0 !ii i a1 !1!1!1!1a2 tt !1!2!3!1!2!3!2!3!1!2!3!1!2!3!1!2!3!2!3!1!2!3!1!2!3!2!3!1!2!3!1!2!3!1!2!3!1!2!3!1!2!3!1!2!3!2!3!1!2!3kp3+ Ag59030@<0special  *legendabs* simple-augment-environment /&UV[vBEE]MI $MIL$MIL$śoL$ 7iy jA7]7YSu79y ta 17F>u3A@^F[vJEE]MI $MIL$MIL$śoL$ 7iy jA7]7YSu79y ta 17^F[EԋỦ]^&W'@^N[vR|xtMI $xIL$tIL$śoL$ 7iy jA7|7YSu79y ta 17^N[U܋BvVplhMčI $lIL$hIL$śoL$ 7iy jA7p7YSu79y ta 173Ҳ]up E̋EË_W' funn0(&2{N&fun n sum  abscissae weights halfn i a1 !!!!!a2 tt !!!!!!!!!!'p3+ @ ab_and_wts  two-arg-+; ?? two-arg-/;  ceiling_1ret calc-array-size 1-; into  .inv-aref_1d progn structure-allocate-instance quote aqd "M!.inv-structure-ref ! ! r @"N!! ! ! "M!! !! r ?"Ndetermine-foreign-address ! <"!! <"aref_1d !! <"> two-arg--; -DT! @ two-arg-*; cos;  legendre_pd  legendre_pdbf !! ! ! "M!! !! r ?"N!! ׉E^*W'׃WWhRP3ɱ;}t]S;teW+&W+뻋]jEE[tW;uЋW+dE׃WWujdRP3ɱEԋEjẺEԋE܋^.׉EȋE̋ ]u;EE3ҲW'3^2׋U uRP^6uԏEu܏E3^2׉EjEE܋^.׉EE ]uM;EVUȋW';vE3ҲEU3ɱɋuËUW';y^:[p]SCTV>RvBPLHTI $LIL$HIL$śoL$ 7iy jA7P7YSu79y ta 17^>[UBvFD@ two-arg--; into progn structure-allocate-instance quote aqd "M!.inv-structure-ref !!r ?"N!!!!"M!!!!r @"Ndetermine-foreign-address !<"!!!!"M!!! !r ?"N! ! gaussunit  two-arg-*; /J%UV4EU33ҲWs]E܍PW?^U܉Z‹U^W'Ћ^3W'ɋuÐ funn02{Nn .lambda-lexical-env. closure fun  in-closure pp3+ @internal  gaussminfinf LN!!<>; abs; sort  two-arg-+; reduce /\UV4N;ugtcQ;#uWEN;ugtcA;#uWEEuRP^׋N;ugtcA;#uWU^"W'ɋuÐ a02{Na p3+ @quadts  compute-pi  two-arg-/; into  two-arg-*; exp; sAR2 two-arg--;  two-arg-+; >=; =; abs; <; / jUVEU܋^׋^3ҲW'EU3^W'^׉E3u3AЋE^W'EԋE؋^"׉EЋF&^׉EjE3^jEċU3^W'EEċ ]u;E~!EԋU؋^W'ɋuËUW';tߋE̋UЋ^W'ЉŰ^W'^*3ҲW'EE3Ҳ^W'ЋE^W'ЋE^W'^"׋ЉU^W'E3Ҳ^.W'EU3^W'ЋE^W'EE3Ҳ^*W'EU3^W'U^W'ЋE^W'EE̋Ћ^W'^.3ҲW'ЋE^W'EU3^W'U^W'U^W'ЋE^W'EEu3AEU^W'u3AЋE^.W'ЋE^W'uԏEЋEԋ^.W'EԋEċU܋^2W';t#E3ҋ^6W';t1E3ҋ^6W';t"N3Ҳ]u`pZEċEEԋU^*W'EU3^6W';t;UԋE^W'^:׋Uȋ^>W';tEԋU؋^W'Ë_W'뜋UÐ funn02{Npiby2 fun n h sum he t2 relerr j iab t4 oldsum t3 p3+ @A@ two-arg-*;  two-arg-+; /H$UV4][[QKqEYsEЋC^W'ЋE^W'u3Aɋu r0 2{Nclosure a p!b p!fun pp3+ @quadtsab  two-arg--;  two-arg-*;  two-arg-+; lexically-visible-function <@quadts /ZUVDEԉU3Ws]ԉEЍPW?U3 WsEEU^W'ЋF^W'E܋EU^W'ЋF^W'E̋]U܋ʍSW?]ŰʍSW?]sE؋F"3ɱW7U^&W'ЋE؋^W'ɋuÐ funlohin02{N.let-lexical-env. lo .lambda-lexical-env. closure b p! a p! fun p p3+ @internal quadtsab LN!!<@u\Eԋ^B׉EEVj(v"uRP^*׉EE܋^2׋ЋE^6W'EU3(^FW'ЋE^6W';FJEԋ^B׉EEVwv&j(v"uRP^*r3A׉EȉU;}ujEȋE܋^2׉EЋE3ҋ^NW';Uȋ^6W'E̋EԋU؋^RW'^B׋Ћ^F3(W'ЋE̋^6W'ЋEЋ^VW'E܋E׋ЋE؋^.W';t+E܋^2׋ЋE^6W'3uEU؋^W';F:t;F>u_E؋^B׉EEVj(v"uRP^*׉EE܋^2׋ЋE^6W'EU3(^FW'ЋE^6W'EU؋^W'EG‹VZuuRP;}tE܋^23E sans02{Nsign s frac pos2 pos frac2 p0 expon ! p3+ @Ag6010Cmethod lisp2qd string aqd LN ׋FBVF vJRP^N׋ɋu null 0+ @ when !g1- map !aref  !elt rational !7nreverse >_2op length +_2op !5!6apply  structure-ref aqd-q aref_1d nan-p !%!lisp2qd ![!)!!Z<!!g!h!n .inv-s-aref let* >= !!t!x .inv-aref_1d >=_2op !v!w<!.inv-structure-ref  denominator;  numerator; !%!$!v!w<!coerce !to-double-float !z<!!!j!g!h!{!|!!!r!t!~!v!w<!logand !!qd_add ash qd_mul  logand_2op >; !+ two-arg-*; expt !%signum !v!w!!zabs <; largest-power-less-than !1-;  two-arg-expt; >=; !*_2op log  floor_1ret =_2op  !!expt; * floor =  decimalize !!g!h- !truncate !!t!values -_2op !!! truncate_1ret ! <!Y!W!!jmin < !d!n!!r!ssubseq string-right-trim <_2op !d!f!!v!w!x!y ! !bq-cons !\!]!!^ backquote  concatenate lambdascan-maxargs  car-fussy  !!7!_ symbol-name concat-to-sstring_2op intern !'!&dt-macro-argument-check  < !!!v!w![!)!!Z< !!!v!w!%<!!!v!w!%<!qd_sub !v!w![!)!!Z<"!!!v!w!%<%!!!v!w!%<4!!!v!w![!)!!Z<7!!!v!w!%<:!!!v!w!%