/#<> ga.lisp by nil on WINDSOME at 2006/2/27 16:22:07\ using 7.0 [Windows] (Jan 30, 2006 10:13).\ Optimization settings at wfasl time:\ ((safety 1) (space 1) (speed 1) (compilation-speed 1) (debug 2)) *)"7.0 [Windows] (Jan 30, 2006 10:13)PAg15<*source-pathname* pathname galisp unspecific ga.lispCY  /*UV$WtWVFɋuÐ null 0+ @ga.lispLN<top-level-form <QAg16@<gaga.lispprovide /*UV$WtWFV^W'ɋuÐ null 0+ @<top-level-form < QAg17@<ga internal-in-package /(UV$WtWF׋^W'ɋu null 0+ @<top-level-form <#Q@gatocl  symbol-name  common-lisp  find-symbol /.UV$tWtW^׋V^W'ɋuÐ n0+-@monotone /x<UV<tWEUtW;}u_;t ɋuËEWWЋEu3ɱ;u֋EWWE܋EW[EEU܉EU랐 oparest02{Nop a p3+-A@~s wanted at least 1 argLN<op ! symbol-name two-arg-concat-to-sstring_2op ga intern tocl <null args monotone car !cdr !cond !! !t defun &rest ! defgeneric arg1 arg2 !! defmethod !number !!compile /UV|tWEĀtW33ҲuRP׋EW[EVW'EEW[3 vRP׋E^׋ЋF^"W'V&^*W'EE^.׉E܋U䋇3ɱW/EV2 uRP3ɱW/ЋF63ɱW/E̋US3ɱW/ЋF: v>RP_׋ЍG3ɱW/ỦEFBuvFRP3ɱW/UEFJuvNRP3ɱW/E؋UFR vVRP_׉EԋE܋VZW+UEF^uvbRP3ɱW/EЋU3ɱW/ЋFf3ɱW/EȋU䋇3ɱW/ЋFf3ɱW/EU䋇3ɱW/U؉EuuuuuRP3ɱW/ɋuÐ  **macroarg**..environment..02{N!two-arg cl-op  **macroarg**  p3+ @Ag21< defcomparison lexically-visible-function <macro-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 <{LN<<< defcomparison QAg23 @<  defcomparison %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @< <QAg24  defcomparison operator LN< !!< record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @< <QAg25 < / WtWuÐ null 0(+ @< <QA < <>  two-arg-> monotone /TUV compiler-proclaim lexically-visible-function < ! set-func_name set-function-1 %fun-documentation remprop /P(UV,WtWF^׋^É]V^"W'UF^&W'FV*^.W'ɋu null 02{Nf p3+ @top-level-form < LN<<< > QAg29@>  defcomparison LN<!operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg30</ WtWuÐ null 0(+ @<<QAg31>  defcomparison LN< two-arg-> operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg33< two-arg->  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</@ UV$tWtW u ;ɋuËW';uG arg1arg20+ Ag34method  two-arg-> number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 compile !/MUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @<<<<QA<<=  two-arg-= monotone /TUV ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @<#<<"<$QA%<%</=  two-arg-/= monotone /TUV ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @<;<3<:<<QA=<=<<=  two-arg-<= monotone /TUV<>dynamic-extent-arguments <= compiler-proclaim lexically-visible-function <=! set-func_name set-function-1 %fun-documentation remprop /P(UV,WtWF^׋^É]V^"W'UF^&W'FV*^.W'ɋu null 02{Nf p3+ @top-level-form <+ LN<> ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @=  two-arg->= monotone /TUV= compiler-proclaim lexically-visible-function = QAg79L@>=  defcomparison LN=  defcomparison LN= operator =  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @= number !LN=  defcomparison record-source-file-1 compile !/MUV\WtWF^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋F^R׋FV^R׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<}top-level-form <f <|<~QA@<cos /$UV$tWtW^ɋu arg0+ @Ag126method cos number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <n <<QA@<tan /$UV$tWtW^ɋu arg0+ @Ag129method tan number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <w <<QA@<asin /$UV$tWtW^ɋu arg0+ @Ag132method asin number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<acos /$UV$tWtW^ɋu arg0+ @Ag135method acos number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<sinh /$UV$tWtW^ɋu arg0+ @Ag138method sinh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<cosh /$UV$tWtW^ɋu arg0+ @Ag141method cosh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<tanh /$UV$tWtW^ɋu arg0+ @Ag144method tanh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<asinh /$UV$tWtW^ɋu arg0+ @Ag147method asinh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<acosh /$UV$tWtW^ɋu arg0+ @Ag150method acosh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<atanh /$UV$tWtW^ɋu arg0+ @Ag153method atanh number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@<exp /$UV$tWtW^ɋu arg0+ @Ag156method exp number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <<<QA@<sqrt /$UV$tWtW^ɋu arg0+ @Ag159method sqrt number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 < <<QA@</6UV$tWtW3ҲupɋuË_W' arg0+ Ag162method 1+ number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <<<QA@</8UV$tWtWupɋuË_W' arg0+ Ag165method 1- number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <<<QA@<abs /$UV$tWtW^ɋu arg0+ @Ag168method abs number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <$<<QA@< numerator /$UV$tWtW^ɋu arg0+ @Ag171method  numerator number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <-<<QA@< denominator /$UV$tWtW^ɋu arg0+ @Ag174method  denominator number LN<! find-class ! qualifiers  specializers  lambda-list arg !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 <:<<QA@<atan /$UV$tWtW^W'ɋuÐ xy0+ @Ag177method atan2 number !LN<! find-class ! qualifiers  specializers  lambda-list x !y !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@<log /(UV$tWtW^3Ҳ(W'ɋuÐ x0+ @Ag180method log10 number LN<! find-class ! qualifiers  specializers  lambda-list x !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 <'<<QA@<log /$UV$tWtW^W'ɋuÐ xb0+ @Ag183method logbase number !LN<! find-class ! qualifiers  specializers  lambda-list x !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 <T<<QA@<atan /$UV$tWtW^W'ɋuÐ ab0+ @Ag186method  two-arg-atan real !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 <<<QA@<log /$UV$tWtW^W'ɋuÐ ab0+ @Ag189method  two-arg-log real !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 <<<QA@</:UV$tWtW3u+pɋuËW' a0+ Ag192method neg real 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 <<<QA@< no erf for CL native numbers yet/&UV$tWtWFא a0+ Ag195method erf real 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 <&<<Q@atan  two-arg-atan  one-arg-atan />UV,||W~tW;t^W'ɋuË^ r &optional s02{Ns p3+-@log  two-arg-log  one-arg-log />UV,||W~tW;t^W'ɋuË^ r &optional s02{Ns p3+-A@<atan /$UV$tWtW^ɋu r0+ @Ag198method  one-arg-atan number LN<! find-class ! qualifiers  specializers  lambda-list r !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 <Z<<QA@<log /$UV$tWtW^ɋu r0+ @Ag201method  one-arg-log number LN<! find-class ! qualifiers  specializers  lambda-list r !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 <<<QA@<f args !! &optional initial-value0  backquote error ~s needs 1 or 2 args got 0:~sMquote bq-comma !!!!initial-value1 !!~s needs 2 args got 1:~sM!!!!!!!! twobytwo /UVdtWEЀtW33ҲuRP׋EW[E܋VW'EEW[VW'EEW[W[3 vRP׋EW[W[;tCEW[W[WWE؋EW[W[W[;tjEW[W[W[WWE;}EɋuËU䋇3ɱW/EȋU3ɱW/EVuuRP3ɱW/E놋U䋇3ɱW/EċU3ɱW/EV"uuRP3ɱW/E_EW[;u EYEW[W[;uEUW+>EWWEԋEW[UEF& uRP3ɱW/EEUԃ uRP3ɱW/  **macroarg**..environment..0 2{N !!! **macroarg** ! p3+ @Ag207<twobytwo lexically-visible-function </4UV,WtWF׃ vRP׋ɋu null 0+ @top-level-form <LN<<<twobytwo QAg209@<twobytwo macro-function  set-func_name /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg210<twobytwo fboundp f args  &optional initial-value0 initial-value1 .inv-func_formals /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg211<twobytwo %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg212LN<twobytwo operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg213</ WtWuÐ null 0(+ @<<QA<op id0 id1 !!! symbol-name two-arg-concat-to-sstring_2op ga intern tocl  defgeneric arg1 arg2 ! !  defmethod ! number ! ! /<UVTtWEԀtW3 3Ҳ uRP׋EW[EVW'EEW[VW'EW[W[VW'EW[W[W[3 vRP׋E^"׋ЋF&^*W'V.^2W'E܋E^6׉EЋU܋F: v>RP_׉E؋EЋVBW+U܉EȋFFuvJRP3ɱW/E̋U䋇3ɱW/U؉EċuuRP3ɱW/ɋu  **macroarg**..environment..0 2{N !two-arg  **macroarg** cl-op p3+ @Ag218< defarithmetic lexically-visible-function </4UV,WtWF׃ vRP׋ɋu null 0+ @<<< defarithmetic QAg220@< defarithmetic macro-function  set-func_name /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg221< defarithmetic fboundp op id0 id1 .inv-func_formals /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg222< defarithmetic %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg223LN< defarithmetic operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg224</ WtWuÐ null 0(+ @<<QAg225LN< two-arg-+ operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg226< two-arg-+  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</8UV$tWtW upɋuË_W' arg1arg20+ Ag228method  two-arg-+ number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg230</ WtWuÐ null 0(+ @<<QAg231LN< two-arg-- operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg232< two-arg--  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</:UV$tWtW u+pɋuËW' arg1arg20+ Ag234method  two-arg-- number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg236</ WtWuÐ null 0(+ @<<QAg237LN< two-arg-* operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg238< two-arg-*  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</&UV$tWtWW'ɋu arg1arg20+ Ag240method  two-arg-* number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg242</ WtWuÐ null 0(+ @<<QAg243LN< two-arg-/ operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg244< two-arg-/  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</_2op /$UV$tWtW^W'ɋuÐ arg1arg20+ @Ag246method  two-arg-/ number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg248</ WtWuÐ null 0(+ @<<QAg249LN< two-arg-expt operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg250< two-arg-expt  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA<expt /$UV$tWtW^W'ɋuÐ arg1arg20+ @Ag252method  two-arg-expt number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg254</ WtWuÐ null 0(+ @<<QAg255LN< two-arg-min operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg256< two-arg-min  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @<<QA</N'UV,tWEtWE u;~UEɋuÉUW';tE arg1arg202{Narg1 arg2 p3+ @Ag260method  two-arg-min number !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @<<<<QAg262</ WtWuÐ null 0(+ @<<QAg263LN< two-arg-max operator < record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg264 <  two-arg-max  lambda-list arg1 arg2 initial-methods ensure-generic-function /6UV4WtWFVWvvRP^"׋ɋu null 0+ @< <QA < /L&UV,tWEtWE u ;~EɋuÉUW';tU arg1arg202{Narg1 arg2 p3+ @Ag268 method  two-arg-max number !LN< ! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !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+ @< << < QAg270</ WtWuÐ null 0(+ @<<QA<twobytwo  two-arg-+ /f3UVDtWEtW3uRP׋EW[EWWE܋FVujuRP3ɱW/ɋuÐ  **macroarg**..environment..02{N **macroarg** args p3+ @Ag274<+ lexically-visible-function </4UV,WtWF׃ vRP׋ɋu null 0+ @<<<+ QAg276@<+ macro-function  set-func_name /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg277<+ fboundp &rest args .inv-func_formals /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg278<+ %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg279LN<+ operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg280</ WtWuÐ null 0(+ @<<QA< two-arg-* twobytwo  two-arg-- /@UVDtWEtW3uRP׋EW[EWWE܋F uRP3ɱW/E؋FVujuRP3ɱW/ɋuÐ  **macroarg**..environment..02{Nargs  **macroarg** p3+ @Ag284<- lexically-visible-function </4UV,WtWF׃ vRP׋ɋu null 0+ @<<<- QAg286@<- macro-function  set-func_name /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg287<- fboundp &rest args .inv-func_formals /0UV$WtWF^׋V^W'ɋu null 0+ @<<QAg288<- %fun-documentation remprop /*UV$WtWFV^W'ɋuÐ null 0+ @<<QAg289LN<- operator <record-source-file-1 /2UV,WtWFV vRP^׋ɋu null 0+ @<<QAg290</ WtWuÐ null 0(+ @<<QA<twobytwo  two-arg-* /f3UVDtWEtW3uRP׋EW[EWWE܋FVujuRP3ɱW/ɋuÐ  **macroarg**..environment..02{N **macroarg** args p3+ @Ag294 < * lexically-visible-function </4UV,WtWF׃ vRP׋ɋu null 0+ @< <<* QAg296!@<>/ WtWuÐ null 0(+ @<><QA?VB vFRP^J׋ɋuÐ null 0+ @ /8UV,tWtWEU^W';t EɋuËE xy02{Nx y p3+ @Ag345Kmethod  two-arg-max t !LNVB vFRP^J׋ɋuÐ null 0+ @ indirect-calls  two-arg-> !!/symbol-function !-!.error !2<!>_2op = !@ two-arg-= !!/!B!-!.!C!2<$!=_2op /= !@ two-arg-/= !!/!B!-!.!C!2<0!!G!1< !@ two-arg-< !!/!B!-!.!C!2<<!<_2op <= !@ two-arg-<= !!/!B!-!.!C!2= !@ two-arg->= !!/!B!-!.!C!2=_2op incf !!5!!6!7if* !!/!<!=!.!>decf !!5!!6!7!T!!/!<!=!.!> re-intern !!+!;symbolp !.!/!V!consp  !!!3!5!!6!7!!;!!<!=!.!><~!sin <!cos <!tan <!asin <!acos <!sinh <!cosh <!tanh <!asinh <!acosh <!atanh <!exp <!sqrt <!+_2op <!!f<!abs <! numerator <! denominator <!atan <!log <!!k<!!j<!!k<!-_2op <!!Catan ! one-arg-atan  two-arg-atan log ! one-arg-log  two-arg-log <!!j<!!ktwobytwo !cddr !5!!6!7!T!!!2!/!<!=!.!>!!!3!4!5!!6!7!8!!!9!*!+!:!;!<!=!.!> <!!f<!!l<!*_2op <!/_2op <!expt <!!D< !!D+ !!5!!6!7!!/!.!>- !!5!!6!7!!/!.!>* !!5!!6!7!!/!.!>/ !!5!!6!7!!/!.!>expt !!5!!6!7!!/!.!>min !!5!!6!7!!/!.!>max !!5!!6!7!!/!.!>= != ! !< two-arg-> !< defcomparison !< monotone !!%!tocl !!&!' load-scm-info /(UV$WtWF^׋ɋuÐ null 0+ @32y