<#<> df.lisp by nil on WINDSOME at 2005/12/3 18:16:49\ using 7.0 [Windows] (Oct 20, 2004 22:05).\ Optimization settings at wfasl time:\ ((safety 1) (space 1) (speed 1) (compilation-speed 1) (debug 2)) *)"7.0 [Windows] (Oct 20, 2004 22:05)Ag15<*source-pathname* pathname dflisp unspecific df.lisp  /*UV$WtWVFɋuÐ null 0+ @df.lispLN<top-level-form <QAg16@<df use Aclshadowing-import-from Aga+-/*expt=/=><<=>=sincostanatanasinacossinhcoshatanhexptlogexpsqrt1-1+absincfdecf numerator denominatortocl"export df defpackage-1 /*UV$WtWFV^W'ɋuÐ null 0+ @<top-level-form <QAg17@<garequire /(UV$WtWF^׋ɋuÐ null 0+ @<top-level-form <QAg18@<dfprovide /(UV$WtWF^׋ɋuÐ null 0+ @<top-level-form <QAg19@<df internal-in-package /(UV$WtWF׋^W'ɋu null 0+ @<top-level-form <QAg21@<dfdf check-lock-def-defstruct /(UV$WtWF^׋ɋuÐ null 0+ @top-level-form <jLN<< QAg22 @df type LN< !< record-source-file-1 /6UV,WtWF vRP^׋ɋuÐ null 0+ @< < QAg23 < / WtWuÐ null 0(+ @< < QAg24df type LN<df-d operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<< QAg26<get-built-in-accessor df-d .inv-symbol-function /4UV$WtW^3׋ЋF^W'ɋuÐ null 0+ @<< QAg27df type LN<df-f operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<< QAg29<get-built-in-accessor df-f .inv-symbol-function /4UV$WtW^3׋ЋF^W'ɋuÐ null 0+ @<< QAg30<df-d  setf-inverse ce-get defsetf check-lock-definitions /B!UV4WtWFV^W'EFVuWRP^"׋ɋu null 0+ @<< QAg31<df-d setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /R)UV,WtWF׃ vRP^׋F׋ЋF v"RP^׋ɋu null 0+ @<< QAg32df type LN<df-d  setf-method <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<< QAg33</ WtWuÐ null 0(+ @<< QAg34<df-f  setf-inverse ce-get defsetf check-lock-definitions /B!UV4WtWFV^W'EFVuWRP^"׋ɋu null 0+ @<< QAg35<df-f setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /R)UV,WtWF׃ vRP^׋F׋ЋF v"RP^׋ɋu null 0+ @<< QAg36df type LN<df-f  setf-method <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<< QAg37</ WtWuÐ null 0(+ @<< QA<f d df /l6UVDEU EU3۳HWO]ԋ;u9׋C;u5}tWF" uRP3ɱkɋuËSċ[ ]Ɛ &key AfAd 02{N< p3+ @Ag39!/b1UV<tWUtWE3ҲW'E܋E3ҲW'E؋EVuuRPɋuÐ astream02{Nstream a p3+ @Ag623method  print-object df t LN<3! find-class ! qualifiers  specializers  lambda-list a !stream function lexically-visible-function <2plist  documentation load-defmethod <4operator !!!!!record-source-file-1 /CUV\WtWF^׉EG‹^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<3top-level-form <<2<4QA5@<5op ! symbol-name two-arg-concat-to-sstring_2op ga intern gatocl df-f arg1 !arg2  defmethod !df !! !!!!number !! !!!!! !! compile /UVttWEȀtW33ҲuRP׋EW[EċVW'EEW[3 vRP׋E^׋ЋF^"W'V&^*W'EE^.׉EЋV2W+UEF6uv:RP3ɱW/E܋EЋV>W+UEF6uvBRP3ɱW/E؋EЋVFW+UEF6uvJRP3ɱW/EԋU3ɱW/ЋFN3ɱW/E̋U䋇3ɱW/ЋFN3ɱW/EU䋇3ɱW/U܉EuuuuuRP3ɱW/ɋuÐ  **macroarg**..environment..02{N!two-arg cl-op  **macroarg** @ p3+ @Ag677<7 defcomparison lexically-visible-function <5macro-function  set-func_name fboundp op .inv-func_formals /Z-UV,WtWF׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <uLN<7<8<5 defcomparison QAg699@<9 defcomparison %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<9<8QAg70: defcomparison operator LN<:!!<;record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<:<8QAg71<<</ WtWuÐ null 0(+ @<<<8QA=<=/l6UV,tWUtW3ҲW'EE3ҲW' ]u];ɋuËЋE䋟W';uG arg1arg202{Narg2 p3+ @Ag74>method  two-arg-> df !LN<>! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <=plist  documentation load-defmethod  defcomparison record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<><@<= number df LN  defcomparison record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @ df number LN  defcomparison record-source-file-1 compile !/MUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<\<^<[<]QA_@<_/\.UV,tWEtW‹3ҲW' ]u];|ɋuËЋE䋟W';tG arg1arg202{Narg1 p3+ @Ag104`method  two-arg-< number df 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+ @<`<^<_Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @= df !LN=  defcomparison record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN= number df LN=  defcomparison record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @= df number LN=  defcomparison record-source-file-1 compile !/MUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<}top-level-form <<|<~QA@<+ df /\.UV4tWEtW‰E3ҲW'ЋE^W'E܋E3ҲW'ЋE܋^W'ɋuÐ ab02{Nb a p3+ @Ag133method  two-arg-+ number df LN<! find-class !! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <<<QA@<- df /EUV<tWUtWE3ҲW'E؋E3ҲW'ЋE؋^W'E܋E3ҲW'EԋE3ҲW'ЋEԋ^W'ЋE܋^W'ɋu ab02{Nb a p3+ @Ag136method  two-arg-- df !LN<! find-class ! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <G<<QA@<- df /X,UV4tWUtWE3ҲW'U^W'E܋E3ҲW'ЋE܋^W'ɋuÐ ba02{Nb a p3+ @Ag139method  two-arg-- df number LN<! find-class !! qualifiers  specializers  lambda-list b !a !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <<<QA@<- df /b1UV4tWE܀tW‰E3ҲW'ЋE܋^W'EE^׋3ҲW'ЋE^W'ɋu ab02{Nb a p3+ @Ag142method  two-arg-- number df LN<! find-class !! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <<<QA@<* + df /cUVDtWU܀tWE3ҲW'EԋE3ҲW'ЋEԋ^W'EE3ҲW'EЋE3ҲW'ЋEЋ^W'E؋E3ҲW'E̋E3ҲW'ЋE̋^W'ЋE؋^W'ЋE^W'ɋu ab02{Na b p3+ @Ag145method  two-arg-* df !LN<! find-class ! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <i <<QA@<* df /d2UV4tWUtWE3ҲW'ЋE^W'E܋E3ҲW'ЋE^W'ЋE܋^W'ɋu ba02{Na b p3+ @Ag148method  two-arg-* df number LN<! find-class !! qualifiers  specializers  lambda-list b !a !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form < <<QA@<* df /f3UV4tWEtW‰E3ҲW'ЋE^W'E܋E3ҲW'ЋE^W'ЋE܋^W'ɋu ab02{Na b p3+ @Ag151method  two-arg-* number df LN<! find-class !! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <E <<QA@</ * + df /UVTtWUtWE3ҲW'EЋE3ҲW'ЋEЋ^W'EE3ҲW'E̋E3ҲW'ỦE uRP^׉E؋E3ҲW'EȋE3ҲW'ЋEȋ^W'ЋE؋^W'EԋE3ҲW'EċE3ҲW'ЋEċ^W'ЋEԋ^W'ЋE^W'ɋuÐ uv0 2{N v u p3+ @Ag154method  two-arg-/ df !LN<! find-class ! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form < <<QA@</ * df /bUVLtWE܀tW‰E3ҲW'ЋE܋^W'EE3ҲW'EԋE3ҲW'UԉE̸ uRP^׉E؋E3ҲW'EЋE3ҲW'ЋEЋ^W'ЋE؋^W'ЋE^W'ɋu uv02{Nv u p3+ @Ag157method  two-arg-/ number df LN<! find-class !! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <b <<QA@</ df /`0UV4tWUtWE3ҲW'U^W'E܋E3ҲW'U^W'ЋE܋^W'ɋu uv02{Nv u p3+ @Ag160method  two-arg-/ df number LN<! find-class !! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form < <<QA@<expt 1- * df /MUVDtWUtWE3ҲW'U^W'E܋E3ҲW'E؋E^׋ЋE؋^W'EԋE3ҲW'EЋEUԃ uRP^׋ЋE܋^W'ɋu uv02{Nv u p3+ @Ag163method  two-arg-expt df number LN<! find-class !! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <a <<QA@<expt log * / + df /{UVDtWU܀tWE3ҲW'EԋE3ҲW'ЋEԋ^W'EE3ҲW'^׉EЋE3ҲW'ЋEЋ^W'E؋E3ҲW'E̋E3ҲW'ЋE̋^W'EȋE3ҲW'ЋEȋ^W'ЋE؋^"W'ЋE^W'ЋE^&W'ɋu uv02{Nz u v p3+ @Ag166method  two-arg-expt df !LN<! find-class ! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form < <<QA@<expt log * df /~?UV4tWEtW‰E3ҲW'ЋE^W'EE^׉E؋E3ҲW'ЋE؋^W'ЋE^W'ЋE^W'ɋu uv02{Nz u v p3+ @Ag169method  two-arg-expt number df LN<! find-class !! qualifiers  specializers  lambda-list u !v !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /CUV\WtWF^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<top-level-form <<<QA@<op s !!df-f a !!x  subst-eql * df-d !df  defmethod !!tocl !!number /BUV\tWEЀtW33ҲuRP׋EW[E܋VW'EEW[VW'EEW[W[3 vRP׋EVW+EԋF"V& uRP^*׉E̋F.V2 uRP3ɱW/UԉEȋF6 uRP3ɱW/UEċF:uv>RP3ɱW/E؋E^B׋VFW+UEF:uvJRP3ɱW/U؉E uRP3ɱW/ɋuÐ  **macroarg**..environment..0 2{N !! **macroarg** p3+ @Ag174<r lexically-visible-function <macro-function  set-func_name fboundp op s .inv-func_formals /Z-UV,WtWF׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<<<r QAg176@<r %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg177r operator LN<!!<record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg178</ WtWuÐ null 0(+ @<<QA<sin cos * df /x<UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^׋ЋE܋^W'ЋE^W'ɋuÐ a02{Na p3+ @Ag181method sin df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form </LN<<<<QA@<sin /$UV$tWtW^ɋu a0+ @Ag183method sin number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<cos sin * df /BUV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^׋Ћ^W'ЋE܋^W'ЋE^W'ɋu a02{Na p3+ @Ag187method cos df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <@LN<<<<QA@<cos /$UV$tWtW^ɋu a0+ @Ag189method cos number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<asin expt * + df /NUV4tWtWE3ҲW'^׉EE3ҲW'EE3ҲW'^3ҲW'Ћ^W'Ћ^3W'V"^W'ЋE^W'ЋE^&W'ɋu a02{Na p3+ @Ag193method asin df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <XLN<<<<QA@<asin /$UV$tWtW^ɋu a0+ @Ag195method asin number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<acos expt * + df /UUV4tWtWE3ҲW'^׉EE3ҲW'EE3ҲW'^3ҲW'Ћ^W'Ћ^3W'V"^W'Ћ^W'ЋE^W'ЋE^&W'ɋuÐ a02{Na p3+ @Ag199method acos df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@<acos /$UV$tWtW^ɋu a0+ @Ag201method acos number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<atan expt + * df /IUV4tWtWE3ҲW'^׉EE3ҲW'EE3ҲW'^3ҲW'Ћ^3W'^W'ЋE^W'ЋE^"W'ɋuÐ a02{Na p3+ @Ag205method atan df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@<atan /$UV$tWtW^ɋu a0+ @Ag207method atan number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<sinh cosh * df /x<UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^׋ЋE܋^W'ЋE^W'ɋuÐ a02{Na p3+ @Ag211method sinh df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@<sinh /$UV$tWtW^ɋu a0+ @Ag213method sinh number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<cosh sinh * df /x<UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^׋ЋE܋^W'ЋE^W'ɋuÐ a02{Na p3+ @Ag217method cosh df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@<cosh /$UV$tWtW^ɋu a0+ @Ag219method cosh number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<atanh expt * 1+ df /MUV4tWtWE3ҲW'^׉EE3ҲW'EE3ҲW'^3ҲW'Ћ^W'^׋^W'ЋE^W'ЋE^"W'ɋuÐ a02{Na p3+ @Ag223method atanh df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@<atanh /$UV$tWtW^ɋu a0+ @Ag225method atanh number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<log expt * df /|>UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^W'ЋE܋^W'ЋE^W'ɋuÐ a02{Na p3+ @Ag229method log df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <2LN<<<<QA@<log /$UV$tWtW^ɋu a0+ @Ag231method log number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<exp * df /x<UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'^׋ЋE܋^W'ЋE^W'ɋuÐ a02{Na p3+ @Ag235method exp df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <GLN<<<<QA@<exp /$UV$tWtW^ɋu a0+ @Ag237method exp number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<sqrt expt * df /BUV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'V^W'ЋF^"W'ЋE܋^"W'ЋE^&W'ɋu a02{Na p3+ @Ag241method sqrt df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <XLN<<<<QA@<sqrt /$UV$tWtW^ɋu a0+ @Ag243method sqrt number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<1- * df /\.UV,tWtWE3ҲW'^׉EE3ҲW'^3ҲW'ЋE^W'ɋu a02{Na p3+ @Ag247method 1- df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <xLN<<<<QA@</8UV$tWtWupɋuË_W' a0+ Ag249method 1- number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<1+ * df /\.UV,tWtWE3ҲW'^׉EE3ҲW'^3ҲW'ЋE^W'ɋu a02{Na p3+ @Ag253method 1+ df LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN<<<<QA@</6UV$tWtW3ҲupɋuË_W' a0+ Ag255method 1+ number LN<! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<<<<QA<abs * df /p8UV4tWtWE3ҲW'^׉EE3ҲW'E܋E3ҲW'ЋE܋^W'ЋE^W'ɋu a02{Na p3+ @Ag259 method abs df LN< ! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function <plist  documentation load-defmethod < operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <LN< < << QA @< abs /$UV$tWtW^ɋu a0+ @Ag261 method abs number LN< ! find-class ! qualifiers  specializers  lambda-list a !function lexically-visible-function < plist  documentation load-defmethod <operator record-source-file-1 /r9UV\WtWF^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @< < < <QA<r x p !!! &optional dx df special /(UVLtWEЀtW3 3ҲuRP׋EW[E܋VW'EEW[VW'EEW[W[VW'E؋EW[W[W[3 vRP׋EW[W[W[;tmEW[W[W[WWЋE؋^"W'ЋE3ɱW/W+EԋUF&3ɱW/Ћ3ɱW/UԉE̋uuRP3ɱW/ɋu3Ҳ랐  **macroarg**..environment..02{N!!! **macroarg** p3+ @Ag266<meval lexically-visible-function <macro-function  set-func_name fboundp r x p  &optional dx .inv-func_formals /Z-UV,WtWF׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <LN<<<meval QAg268@<meval %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg269meval operator LN<!!<record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg270</ WtWuÐ null 0(+ @<<Qdeval df special /JUVD||WEU܃~oUtWE^W'ЋE3ɱW/W+E؋U܋F3ɱW/Ћ3ɱW/U؉EԋuuRP3ɱW/_ɋu3Ҳ rxp &optional dx02{Ndx r x p3+-@common-lisp-userdeval df  re-intern deval /f3UV<||WU~C]]tWV^W'E܋EV^W'ЋE܃uuRP^ɋujE rxp &optional dx02{Ndx x p3+-@fact = r ?df 1- * /Z-UV,tWtWE3Ҳ^W';tV3^W'ɋuËE^3AЋE^"W' x02{Nx p3+-@stir expt - exp * + -DT! @sqrt /~?UV<tWtWЉU܋^W'EE܋^׋^׉EU3^W'V"^&W'V*^W'^.׉E؋EU uRP^ɋuÐ n02{Nn p3+-@ex ex1 /0UV,tWtW3Ҳ jlazy-formatter-tree 9~%Newton iteration not convergent after ~s iterations: ~sni2 abs < / UVT}WEUIEU3۳HWO];uXv"EԋS;uSjHE܀tWjEu܏E؋EЋ ]u5;E|@G‹V&uuRPɋuËSU릋[ ]몋U؋W';tEU^*W'r3A׉E3ҲW'^.׋Uԋ^2W';tE3Ҳ]upEЀtWGË_W' fguess&key abstolcount02{Nf guess count abstol i p3+-@p = / * 1- - + /yUVLtWUtWE3ҋ^W';t 3ɋuËE3Ҳ^W';tEU3^W'E܋U3^W'^׉EԋE^׋U3ɱxE̋EԋU uRP^׉E؋U3^"W'EЋE3Ҳ^"W'U3ɱ4ЋEЋ^W'ЋE؋^&W'ЋE܋^W'= mx02{Nx m p3+-Ag274@</ WtWuÐ null 0(+ @<top-level-form <'Q2xAg275@<top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info cons compile fboundp macro-function .inv-macro-function .inv-func_formals  find-class load-defmethod .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 provide require  defpackage-1 # macro-calls r  defcomparison defmacro list  defmethod  sy_function definef declaim defun defsetf setf record-source-file  defstruct  in-package  defpackage sets *source-pathname*  references !5<"! short-vector  structurify df !!7!8<4!df-d df-f format !&!$bq-cons bq-quote !(bq-list  backquote  concatenate !!tocl  symbol-name concat-to-sstring_2op intern lambdascan-maxargs  car-fussy cdr dt-macro-argument-check  _2op =_2op !(!?!@!!B subst-eql !!F!G!H!I<!cos !:!R!;sin !9<!sin <!!Z!:!R!;!Y!9<!cos <!!P!U!:!R!;asin !9<!asin <!!P!U!:!R!;acos !9<!acos <!!P!U!:!R!;atan !9<!atan <!cosh !:!R!;sinh !9<!sinh <!!d!:!R!;!c!9<!cosh <!1+ !U!:!R!;atanh !9<!atanh <!!U!:!R!;!V!9<!log <!!:!R!;exp !9<!exp <!!U!:!R!;sqrt !9<!sqrt <!!:!R!;!T!9<!+_2op <!!:!R!;!g!9<!!o< !!:!R!;abs !9<!abs meval !$!>!(!?!@if* !!9!car !F!G!H!Ideval !$!>!(!?!@!!9!eval deval ! re-intern !ufact !!T!y!R!9= stir !!P!m!Q!k!U!Rex !ex1 !}!!U!}!R!P!zni !!:!S!Q!;funcall !9df-p ni2 !$!<!!:!S!Q!;values !<!!9!  run-newt1 !!!<<= !H!Q!S!p< !P!o!t!~!O!!$!<cadr !/incf + 1+ push >= !(  run-newt2 !!o!;!p!!!<!O!$!!!/!<!p !!Q!!T!P!S!R!z D!/(UV$WtWF^׋ɋuÐ null 0+ @32x<top-level-form <(Q32yAg276@<p operator !! run-newt2 !!! run-newt1 !!!ni2 !!!ni !!!ex1 !!!ex !!!stir !!!fact !! !deval !! !deval !! !meval !<r !< defcomparison !<;df type < df-d !<df-f !<! setf-method <!!<<"!<$!!<)copy-df !<,df-p !