*@#<> poly.lisp by nil on WINDSOME at 2005/12/6 16:54:02\ using 7.0 [Windows] (Dec 1, 2005 15:22).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 2)) *)!7.0 [Windows] (Dec 1, 2005 15:22)Ag655<*source-pathname* pathname polylisp unspecific  poly.lisp  /UV$VFɋuÐ null 0+ @ poly.lispLN<top-level-form <QAg656@<optimize speed safety space compilation-speed compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<top-level-form <QAg657@<inline svref ga= eql  make-array compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<top-level-form <QAg658@<poly provide / UV$F^׋ɋuÐ null 0+ @<top-level-form <QAg659@<ma internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <EQA@<numberp /B!UV4E33ҲuRP׋][SF3ɱW/ɋu  **macroarg**..environment..02{N **macroarg** p3+ @Ag663<macoefp lexically-visible-function <macro-function  set-func_name fboundp x .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<< <coefp QAg665 @< coefp %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @< < QAg666 coefp operator LN< !!< record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @< < QAg667</uÐ null 0(+ @<< QA<the  simple-vector /h4UV4E33ҲuRP׋][SUFV uRP3ɱW/Ћ vRP_ɋuÐ  **macroarg**..environment..02{N **macroarg** x p3+ @Ag671<mainvar lexically-visible-function <macro-function  set-func_name fboundp x .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<<<mainvar QAg673@<mainvar %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg674mainvar operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg675</uÐ null 0(+ @<<QA<mainvar /|>UVDE33ҲuRP׋][SCU؋PUU؋F3ɱW/E܋UF3ɱW/U܉Eԋ uRP3ɱW/ɋu  **macroarg**..environment..02{N **macroarg** y x p3+ @Ag679<samevar lexically-visible-function <macro-function  set-func_name fboundp x y .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<<<samevar QAg681@<samevar %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg682samevar operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg683</uÐ null 0(+ @<<QA<the  simple-vector - /t:UV4E33ҲuRP׋][SUFV uRP3ɱW/Ћ3ɱW/ЋF vRP_ɋuÐ  **macroarg**..environment..02{N **macroarg** x p3+ @Ag687<degree lexically-visible-function <macro-function  set-func_name fboundp x .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<<<degree QAg689 @< degree %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @< <QAg690!degree operator LN /Z-UV lexically-visible-function <4macro-function  set-func_name fboundp x y .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form < LN<5<6<4var> QAg7147@<7var> %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<7<6QAg7158var> operator LN<8!!<9record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<8<6QAg716:<:/uÐ null 0(+ @<:<6QA;<;+ /Z-UV@<>coef+ %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<><=QAg723?coef+ operator LN /Z-UV lexically-visible-function QAg746S@ %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @ operator LN p+vv-zero-check 1+ /NUV|tȀuHpu ^W'ɋutʀuJpuE‹U^W'ыXEBU;EIE3 ][];}u^׉E܋EIE3 ][];}u^׋ЋE܉U؋^W'I׉Eċ^W'3҃WwhRP3ɱE;}tc]ċS;S]CUR^"W';EU^W'7YW+p]jEE[tW;uNjUW+EE׃WWujuRP3ɱEԋ]CUԃW?3۳U܋É]Ћ^"W';tE p+into /xUV<tȀuHpu ^W'ɋutʀuJpuE‹U^W'ыXEB;u8]CZUӉE܉]؋^W';tAEUuuRP^댋]CUR^W';t.EU^W'eEUuuRP^HEU^W'7 v1v202{Nv1 v2 lv1 lv2 p3+ @p- pnegate p+cv p+ > /lUV,tȀu'HpuE‹^׋ЋE^W'ɋutʀu"JpuE‹^׋U^W'ʋXEB;u‹^׋ЋE^W'맋]CUR^W';tE^׋U^W'yE^׋ЋE^W'_ v1v202{Nv1 v2 p3+ @p+cv + copy-seq p+ /Z-UV,EtʀuJpuE^W'ɋuË^±׋PEE^W'UW?EԐ cv02{Nv c p3+ @p+into p+vv-zero-check 1+ = pnorm /gUVLE܉UE׃WWhRP3ɱE]CUW?3۳1]܋U؋D]T^W']]ӃW?E؋^׋؋UÉ]؋^W';t)]UDuEUԋUԃW?E^׉EEU^W';tNjE^ɋuÐ v1v2shorterlonger02{Nres v2 v1 i p3+ @p+vv-zero-check p+ /UV$uɋuË^W' placeform0+ @pnorm  coefzerofunp from-end position-if-not = 1- start  delete-if /UV4tȀuHpuɋuÉEN;ugtcA;#uWUwvRP^׉E3ҋ^W';t3룋E3Ҳ^W';t ]Cm]C^"׋ЋE^W';t EbN;ugtcA;#uWUuv&RP^* x02{Nx pos p3+ @p^ negative powers not allowedonly integer powers allowedexpt 1- p* /lUV,Etʀu)Ju!‰U3Ҩu#;},FɋuËF׋W';uԋE3Ҩu ;u3͋W';u}uE봋]tˀuKpu ËU^W'늋E^׋ЋE9ЋE^"W'f xn02{Nx n p3+ @ p/-and-barf p/ /|>UVTEU^MwiwǏA a7AYWwYOEU^W'QO1GYr3A;u‹ɋu ps02{Np s p3+ @p/-test p/ /\.UVTEU^MwiwǏA a7AYWwYOEU^W'QO1GYɋu ps02{Np s p3+ @p/ !Division by zeromod / > )Division by a polynomial of higher degreeInexact integer divisionp/vc p/helper / DUV<uvE܋NjV3ɱr3A]WkuɋuÃttȀuDHpu9tʀubJpuWEU^W'uaEU^W'tiʀu JptTE@UR^"W';tIUE6vE؋NjV&3ɱr3A]WkvEԋNjV*3ɱr3A]Wk^.W'+]CUR^"W';tvEЋNjV&3ɱr3A]WkEU^2W' ps02{Np s p3+ @p/vc copy-seq 1- p/ = /GUV4UE؋^׉E]؋Iu]3 [];u^+]U܋DU^W']]ӃW?E܋^׉E3ҋ^W';tƋEɋuËË릐 ps02{Nq s i p p3+ @p/helper > p/ )Division by a polynomial of higher degree- + calc-array-size pnegate 1- < Quotient not exactsubseq p* p+ pnorm /X,UVXEBŰӉE]؋^W';tvENjV3ɱr3A]WkE^׋U؉E3 uRP^"׋I׉Eȋ^&W'3҃WwhRP3ɱE;}t ]ȋS;tJ]jEE[tW;uNjUW+EE׃WWujuRP3ɱE܋E̋^*׉Eԋ]̋C^.׋]̋\]Ћ]CU܃W?E؋U^2W';t%vENjV63ɱr3A]WkW+E^׋U؉E3 uRP^"׉Eċ]C^.׋]DUЋ^W']]܋ӃW?E^׋U؉E3 uRP^"׉EE3҃ uRP^:׋Uԋ^>W'ЋE^BW'^F׃uE܋^FɋuètȀu&HpuvENjV63ɱr3A]WkXE] ps02{Nl2 p q i sneg slc s 8 p3+ @prem Division by zeromod > prem2 /hUV,uFɋuÃu EEtȀu-Hpu"tʀuKJpu@^W't+ʀu JptE@UR^W';t3zt]CUR^W';gEU^W'I ps02{Np s p3+ @prem2 > 1- - + calc-array-size identity start  delete-if p* p*cv p+ pnorm = < p^ /&UVEUEIuAjEE@;uEIu33@;uEċ^W';t&EɋuË׉E‹׋uEEIE3 ][];}u^׋]\E]܋IjEE@;uEI3@;uE^W'ЉU3^W'Iuo׉E̋^"W'3҃WwhRP3ɱE;}tI]̋S;9E׉Ee׋qW+늋]jEE[tW;uNjUW+EE׃WWujuRP3ɱEԋ]CUԃW?^&[]U3^W'EEUԃuv*RP^.uԏEȋEԋ׋^׉EuEEIE3 ][];}u^׋]D]]ȋӃW?EU܋^2W'EEԋU^2W'Ћ^6W'ЋE^:W'^>רt1Ȁu Hpt]ECUR^W';t1EEE3ҋ^BW';ENGEIu{jEE@;uEIum3@;uE^W'E3ҋ^FW';tUE3ҋ^BW';EE܋U؋^JW'ЋE^2W'׉E눋׋듋E؋^׋UЋ^W';t,E؋^׋UЋ^W'ЋE܋^JW'ЋE^2W'EuЏEE܋U؋^JW'ЋE^2W'2 ps02{Np s slc k temp m =BC p3+ @pgcdsr gcd  pcontentxsr > pgcd2sr /vUV,uɋuÃutȀu-Hpu"tʀu5Jpu*^W'tʀu#Jpu^W'떉E‹U^W'놉EBU]S^W';tEU^W'\]CUR^W';tEU^W'5EU^W'$ uv02{Nu v p3+ @pgcd2sr >  pcontentsr p/ pgcdsr - prem p* 1- p^ / gUVlEĉUȋEȋIjEE@;uEċI3@;uE^W';t ]uȏEĉ]ȋEċ^׉EEȋ^׉EEċU^W'E܋EȋU^W'EEU^W'EjEjEԋE܋IuGjEE@;uEIu93׉E8׋D׉E뼋׋ЋE^"W'EjE̋E܋U^&W'EEԋŰ^*W'ЋE؋^*W'ЋE^W'uE܉E}u%E܋^׋ЋE܋^W'ЋE^*W'ɋuË]t(ˀu KptU܋BS^W';tEu܏EE܋IE3 ][];}u^.׋]\ËUЉ]؋^2W'Ű^W'EԋE܋IuVjEE@;uEIuH3@;uE^"W'EЃ}u6jEw׉E뭋׋븋EЋ^.׋ЋEԋ^2W'Eu@;uU pq02{Nq content p g h d hpow ! ! pcont qcont  p3+ @ pgcd2prim >  pcontentsr p/ pgcdsr p* prem ppartsr /@UVDE܉UEIjEE@;uE܋I3@;uE̋^W';t ]uE܉]E܋^׉EE^׉E؋E܋U^W'EЋEU؋^W'u=EU؋^W'UЋ^"W'ɋuË׉Ed׋pt.Ȁu Hpt]ЉEԋCUԋR^W';tEU؋^W'똋EЋUԋ^&W'^*uԏEЉEԋEZ uv02{Nv ucont u vcont d c p3+ @ pcontentsr = 1+ pgcdsr /\UV<uɋuètȀuHpu3ۉEIu>3@;uËU3۳EBE܋ËU]؋^W';u}uE뒋ƋE؋^׉Eԋ]U؋TE܋^W'EuԏE؋]؋U p02{Np len g i p3+ @ pcontentxsr 1- = pgcdsr /HUV l g - 1+ = 1- /xUVD;u FɋuètȀu@Hpu5tʀuBJpu7E‹UE^W';t(Ft6ʀu5Jpu*F닋EU^W';tpFrFiX]؋ZUE@]3Ҳ^"W'E܋]C3Ҳ^"W'EЋE؋Uԋ^W';uEԋU؋^W';tF FE܋UЋ^W';uEЋU܋^W';u΋E܋^&׉E3ҋ^*W';]ŰD]T;Fu E̋^. uv02{Nu v ud um vm vd i p3+ @A> 1- calc-array-size copy-seq - p* = pnorm /NUVt][[tȀuHpu3ɋuÉEQ Y]܋]S^W';u܋]CUQ Y;W';ty]EIE3 ]ċ[];}u^׋Iuu׉EЋ^W'׃WWhRP3ɱE;}tQ]ЋS;A]늋E^׉EEI E3|W+넋]jEE[tW;uNjUW+EEȋ׃WWujuRP3ɱE]܋UW?EIE3 ][];}u^BE؋^׉E̋E3Ҳ^"W']U؋T^&W']]ӃW?E؋^׉E3Ҳ^*W';tE^.׋^6]sEUEԋDu3AW#]]ӃW?Eԋ^׉E3ҋ^*W';tE^.][];}u끐 p0  2{N r p .lambda-lexical-env. i ! Iclosure Apd1p! v p p3+ @pderiv lexically-visible-function </`0UVLEQMĉMYUċ^CEGEԉ]QMĉMY}̍Mȋى]܍]]ȕEEu3AW#ɋuÐ pv02{Np closure Apd1p!v pp3+ @labels pderiv pd1 LN!!<<W2xAg843@<top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info record-source-file-1 remprop fboundp macro-function .inv-macro-function .inv-func_formals  set-func_name internal-in-package provide compiler-proclaim  macro-calls record-source-file setf defmacro  in-package declaim sets *source-pathname*  references !coefp !bq-quote list bq-list  backquote lambdascan-maxargs  car-fussy !car cdr dt-macro-argument-check mainvar !!!!bq-list* !!!!list* !! !!samevar !!!!!!!!!! !!degree !!!!!#!!!!!$!! !!lc !!!!!!!!!! !!constc !!!#!!!!!$!! !! monomialp !position-if-not 1+ length = <3!equal var> !!!!!!!!!! !!coef+ !!!!!!!!!! !!coef- !!!!!!!!!! !!coef* !!!!!!!!!! !!coef> !!!!!!!!!! !!coef/ !!!!!!!!!! !!coef^ !!!!!!!!!! !!coefrem !!!!!!!!!! !!coefneg !- coefabs !abs coefzero !!!! !!coefone !!!! !! coefzerop !!!!!!!!!! !!coefonep !!!!!!!!!! !!coef-negative-p !!#!!!!!!!!$!! !! coefzerofunp !eq !eql p* !!+!Cp+vv-zero-check not >  .inv-svref ! null calc-array-size cons listp + !,1- svref !Ap*cv numberp !!/!B!=unless !! make-array setq !"!%! !O!!C!-!M!G!N!,!A* !P !!"!!R!>!;!B!=!2! pnegate !!U!-!M!N!G! !H!I!J!K!,!7!P!!!!R!p+ !p+into !F!,!N!Ap+cv !P!!/!"!%!p- !!F!V!N!A!U!X!P!!/!"!%!!X!!N!V!Gcopy-seq !L!P!!!0!!W!pnorm !+!D!-!N!G!!"!!R!D!!V!A!!B!=![indirect-calls !@! delete-if !,!M!N![!-symbol-function !*!P !!;!p^ !!!Bzerop minusp !!M!_!Cexpt !P!A=_2op error <_2op integerp   p/-and-barf !!d!Hp/ p/-test !!h!h!p/helper p/vc !N!F/ mod !Pvalues !A !!"!/!!>!B!=!k!!!!N!h!G!-!,!M!Z!j!!!B!=!"!!'!!R !!P!Asubseq !C!V![!h< !G!M!N!U! !H!I!J!K!8!L!n!F!,prem !prem2 !N!F!m!P!d!A!!;!"!/!6!!B!=!r!\identity !!/! sy_function !"!!!R!' !!p!_!-!P!O!C!V![memref !^!]!G! !H!I!J!K!L!8!M!N!,!Fpgcdsr !pgcd2sr !N!F pcontentxsr gcd !P!A!!"!/!!B!=!w!!'!S!"!/!!B!=multiple-value-bind rotatef  !!_!M!N!P!A!C!q!8!v!h pcontentsr !,!F pgcd2prim !!"!/!!B!=!z!{!!qppartsr !N!P!v!C!A!h!|!,!F !|!!v!+!-!N!,!P!A!!>!<!!B!=!x!!B!>!!N!v!-!A!,!M!~!!|!h!P!A!!!B!= pgcd-cofac !!h!n!vpcompare !!/!&!"!3!!!M!!-!+!,!8!N!F!P!A pderiv !funcall <<!!<!Z!8!C![!-!G! !H!I!J!K!,!M!B!N!F!P!!!!R!/!5!/ UV$F^׋ɋuÐ null 0+ @32x<top-level-form <HSQ32yAg844@<pderiv operator !!pcompare !!! pgcd-cofac !!!ppartsr !!! pcontentxsr !!! pcontentsr !!! pgcd2prim !!!pgcd2sr !!!pgcdsr !! !prem2 !! !prem !! !p/helper !! !p/vc !! !p/ !!!p/-test !!! p/-and-barf !!!p^ !!!pnorm !!!p+vv-zero-check !!!p+into !!!p+cv !!!p- !!!p+ !!!pnegate !!!p*cv !!!p* !!! coefzerofunp !!!coef-negative-p !<coefonep !< coefzerop !<coefone ! ! !<9 monomialp !!+!constc !<0lc !<)degree !<"samevar !<mainvar !<coefp !< 2 load-scm-info / UV$F^׋ɋuÐ null 0+ @32y<top-level-form <HSQ3Ag845@< monomialp  .de-args. Mcoefneg !coefabs ! coefzerofunp !p* !p*cv !pnegate !p+ !p- !p+cv !p+into !p+vv-zero-check !pnorm !p^ ! p/-and-barf !p/-test !p/ !p/vc !p/helper !prem !prem2 !pgcdsr !pgcd2sr ! pgcd2prim ! pcontentsr ! pcontentxsr !ppartsr ! pgcd-cofac !pcompare !pderiv !store-doc-forms / UV$F^׋ɋuÐ null 0+ @<top-level-form <HSQ