Ci#<> affine-rat.lisp by nil on WINDSOR at 2006/1/6 11:27:11\ using 7.0 [Windows] (Dec 27, 2005 15:00).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 0)) *)"7.0 [Windows] (Dec 27, 2005 15:00)Ag2918<*source-pathname* pathname  affine-ratlisp unspecific affine-rat.lisp.\  /UV$VFɋuÐ 0+ @affine-rat.lispLN<top-level-form <QAg2919@<affine use Aclshadowing-import-from Aga+-/*expt=/=><<=>=sincostanatanasinacossinhcoshatanhexptlogexpsqrt two-arg-/export aff defpackage-1 /UV$FV^W'ɋuÐ 0+ @<top-level-form <QAg2920@<garequire / UV$F^׋ɋuÐ 0+ @<top-level-form <`QAg2921@<affine internal-in-package / UV$F׋^W'ɋu 0+ @<top-level-form <QAg2922@<affineaff check-lock-def-defstruct / UV$F^׋ɋuÐ 0+ @top-level-form <LN<< QAg2923 @aff type LN< !< record-source-file-1 /(UV,F vRP^׋ɋuÐ 0+ @< < QAg2924 < /uÐ 0(+ < < QAg2925 aff type LN< aff-d operator <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @< < QAg2927<get-built-in-accessor aff-d .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ 0+ @<< QAg2928aff type LN<aff-n operator <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg2930<get-built-in-accessor aff-n .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ 0+ @<< QAg2931<aff-d  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu 0+ @<< QAg2932<aff-d setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu 0+ @<< QAg2933aff type LN<aff-d  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg2934</uÐ 0(+ << QAg2935<aff-n  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu 0+ @<< QAg2936<aff-n setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu 0+ @<< QAg2937aff type LN<aff-n  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg2938</uÐ 0(+ << QA<n d aff /^/UVDEU EU3۳HWO]ԋ;u,׋C;u(}F" uRP3ɱɋkSы[ ] 0+ @Ag2940<dynamic-extent-arguments make-aff compiler-proclaim lexically-visible-function <! set-func_name set-function-1 %fun-documentation remprop /B!UV,F^׋^É]V^"W'UF^&W'FV*^.W'ɋu 0+ @<< <make-aff QAg2942@aff type LN<make-aff operator < record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg2943!<>n d make-aff minz  defconstant2 /0UV,F3҃jvRP^׋ЋF^"W'ɋu 0+ @<><;QA? ׋FBVF vJRP^N׋ɋuÐ 0+ @<@top-level-form < ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @<\top-level-form <<[<]QA^@<^minzp = /<UV,UE^;tE3ҋ^W';t3ɋuËEE 0+ @Ag3000_method  two-arg-+ aff t LN<_! find-class ! qualifiers  specializers  lambda-list r !s !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Ð 0+ @<_top-level-form <?<^<`QAa@UV,E‰E^;tE3ҋ^W';t3ɋuËEE 0+ @Ag3003bmethod  two-arg-+ t aff LN ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋu 0+ @v:v6v2v.uv*WRP^F ׋FJVN vRRP^V׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @VB vFRP^J׋ɋu 0+ @<|top-level-form <<{<~QA@</ / Ћ^3g' 0(+ @Ag3030method  invert-aff t LN< find-class ! qualifiers  specializers  lambda-list x !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Ð 0+ @<top-level-form <=<<QA@<- /^ 0(+ @Ag3033method  negative-aff t LN< find-class ! qualifiers  specializers  lambda-list x !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Ð 0+ @<top-level-form <e<<QA@<= - n d make-aff /T*UV4PE^W';t3ɋuË]C^׋][Љ]FuvRP^"̐ 0+ @Ag3036method  negative-aff aff 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Ð 0+ @<top-level-form <<<QA@< negative-aff + / UV,E‹^׋ЋEɋ^g' 0+ @Ag3039method  two-arg-- t aff LN< find-class !! qualifiers  specializers  lambda-list r !s !function lexically-visible-function <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Ð 0+ @<top-level-form <2<<QA@< two-arg-= / UV$^W';u GɋuË 0+ @Ag3042method  two-arg-/= aff 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Ð 0+ @<top-level-form <<<QA@< two-arg-= / UV$^W';u GɋuË 0+ @Ag3045method  two-arg-/= number aff 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Ð 0+ @<top-level-form <<<QA@<= /B^g' 0(+ @Ag3048method  two-arg-= eql Laff LN<intern-eql-specializer ! find-class ! qualifiers  specializers  lambda-list arg1 <arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator !!<!!record-source-file-1 /v;UV\^3׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋu 0+ @<top-level-form <r<<QA@</uÐ 0(+ Ag3051method  two-arg-= number aff 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Ð 0+ @<top-level-form <<<QA@< two-arg-= / UV,E‹Uɋ^g' 0+ @Ag3054method  two-arg-= aff 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Ð 0+ @<top-level-form <<<QA@<= /\.UV4E@UR^W';uɋuË]CUR^W';t]CS jRP^;uǍG 0+ @Ag3057method  two-arg-= aff !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Ð 0+ @<top-level-form <c<<QA@< symbol-name two-arg-concat-to-sstring_2op ga intern tocl aff-n arg1 * arg2 abs aff-d ! defmethod !aff !number !!! !!!!! !! !!!! !!! !!!!! !! compile /.UVdE33ҲuRP׋]̋[S‰U^׋ЋF^W'V^"W'EE^&׉EԋV*W+UEċF.uv2RP3ɱW/E܋EԋV6W+UEF.uv:RP3ɱW/E؋EԋV>W+UEF.uvBRP3ɱW/EЋU3ɱW/ЋFF3ɱW/EȋU䋇3ɱW/U܉EuuuuRP3ɱW/ɋuÐ 0 + @Ag3062< defcomparison lexically-visible-function <macro-function  set-func_name fboundp op .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu 0+ @top-level-form < LN<<< defcomparison QAg3064@< defcomparison %fun-documentation remprop /UV$FV^W'ɋuÐ 0+ @<<QAg3065 defcomparison operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<<QAg3066</uÐ 0(+ <<QA<abs * /V+UV,UX]@^׋ЋE^W' ]u];ɋuËЋE䋟W';uG 0+ @Ag3069method  two-arg-> aff number LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ 0+ @top-level-form < #LN<<<<QA@<* /B!UV,UR^W']S u ;ɋuËW';uG 0+ @Ag3072method  two-arg-> number aff LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ 0+ @<<<<QA<* /`0UV4E@U܋R^W'E]C]܋S^W' ]u];ɋuËЋE䋟W';uG 0+ @Ag3074method  two-arg-> aff !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 compile /AUV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋F^R׋ɋuÐ 0+ @<<<<QA<abs * /V+UV,UX]@^׋ЋE^W' ]u];|ɋuËЋE䋟W';tG 0+ @Ag3078method  two-arg-< aff number LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator <  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ 0+ @top-level-form <#LN<<<<QA@<* /B!UV,UR^W']S u ;|ɋuËW';tG 0+ @Ag3081method  two-arg-< number aff LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator <  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ 0+ @<<<<QA<* /`0UV4E@U܋R^W'E]C]܋S^W' ]u];|ɋuËЋE䋟W';tG 0+ @Ag3083method  two-arg-< aff !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator <  defcomparison record-source-file-1 compile /AUV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋F^R׋ɋuÐ 0+ @<<<<QA<= < /*UV,EU^W';tɋuËEUɋ^g' 0+ @Ag3086method  two-arg-<= t !LN< find-class ! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /x<UV\G‹^׉EG‹^׋ЋE3ɱW/EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋuÐ 0+ @<top-level-form <4#<<QA@<= > /*UV,EU^W';tɋuËEUɋ^g' 0+ @Ag3089method  two-arg->= t !LN< find-class ! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /x<UV\G‹^׉EG‹^׋ЋE3ɱW/EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋuÐ 0+ @<top-level-form <v#<<QA@< two-arg-= / UV$^W';u GɋuË 0+ @Ag3092method  two-arg-/= t !LN< find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /x<UV\G‹^׉EG‹^׋ЋE3ɱW/EFV4Wv6Wv2v.v*v&v"uvWRP^: ׋F>VB vFRP^J׋ɋuÐ 0+ @<top-level-form <#<<Q2xAg3094@<top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info compile fboundp macro-function .inv-macro-function .inv-func_formals intern-eql-specializer cons  find-class load-defmethod make-aff  defconstant2 .inv-get notify-clos-of-new-structure compute-struct-cpl copy-defstruct-description get-dd-predicate-closure memref symbol-function set-function-1  set-func_name remprop compiler-proclaim  share-conses  ce-putprop ce-get check-lock-definitions .inv-symbol-function get-built-in-accessor record-source-file-1 check-lock-def-defstruct internal-in-package require  defpackage-1 % macro-calls  defcomparison defmacro list  defmethod  defconstant  sy_function definef declaim defun defsetf setf record-source-file  defstruct  in-package  defpackage sets *source-pathname*  references !7!! short-vector  structurify _2op <!!<!;!H!a<!!;!<!H!a<!!;!`!H!<<_2op <!!<!;!H!b<!!;!<!H!b<!< !A<!> !A<!!Q!C'!/ UV$F^׋ɋuÐ 0+ @32x<top-level-form <$Q32yAg3095@< defcomparison operator <NaNp !!!minfp !!!pinfp !!!minzp !!!minz variable <=minf !<8inf !<3NaN !<.aff type < aff-d !<aff-n !<!  setf-method <!!<make-aff !< copy-aff !<#aff-p !<& load-scm-info / UV$F^׋ɋuÐ 0+ @32y<top-level-form <$Q3Ag3096@<minzp  .de-args. Mpinfp !minfp !NaNp !store-doc-forms / UV$F^׋ɋuÐ 0+ @<top-level-form <$Q