.7#<> proj-rat.lisp by nil on WINDSOME at 2005/11/29 11:44:03\ using 7.0 [Windows] (Oct 20, 2004 22:05).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 2)) *)"7.0 [Windows] (Oct 20, 2004 22:05)Ag2381<*source-pathname* pathname proj-ratlisp unspecific  proj-rat.lisp.\  /UV$VFɋuÐ null 0+ @ proj-rat.lispLN<top-level-form <QAg2382@<proj use A common-lispAgashadowing-import-from Aga+-/*expt=/=><<=>=sincostanatanasinacossinhcoshatanhexptlogexpsqrt1-1+abstocl re-intern numerator denominator!export proj defpackage-1 /UV$FV^W'ɋuÐ null 0+ @<top-level-form <jQAg2383@<garequire / UV$F^׋ɋuÐ null 0+ @<top-level-form <hQAg2384@<proj internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <QAg2385@<projproj check-lock-def-defstruct / UV$F^׋ɋuÐ null 0+ @top-level-form <LN<< QAg2386 @proj type LN< !< record-source-file-1 /(UV,F vRP^׋ɋuÐ null 0+ @< < QAg2387 < /uÐ null 0(+ @< < QAg2388proj type LN<proj-n operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg2390<get-built-in-accessor proj-n .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ null 0+ @<< QAg2391<proj-n  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu null 0+ @<< QAg2392<proj-n setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu null 0+ @<< QAg2393proj type LN<proj-n  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg2394</uÐ null 0(+ @<< QA<n proj /H$UV,EU EU3۳HWO];u׋F3ɱkɋuËS &key An0+ @Ag2396<dynamic-extent-arguments  make-proj compiler-proclaim lexically-visible-function <! set-func_name set-function-1 %fun-documentation remprop /B!UV,F^׋^É]V^"W'UF^&W'FV*^.W'ɋu null 02{Nf p3+ @<< < make-proj QAg2398@proj type LN< make-proj operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg2399</uÐ null 0(+ @<< QAg2400proj type LN< copy-proj operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg2402<copy-structure  copy-proj set-function-1 /UV$^SF^W'ɋu null 0+ @<< QAg2403proj type LN<proj-p operator < record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg2405! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<.top-level-form <z<- ׋FBVF vJRP^N׋ɋuÐ null 0+ @<1top-level-form <.<0<3QA4@<4NaN /NAOf;H}D@uÐ s0(+ @Ag24265method cos proj LN<5! find-class ! qualifiers  specializers  lambda-list s !function lexically-visible-function <4plist  documentation load-defmethod <6operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<5top-level-form <R<4<6QA7@<7NaN /NAOf;H}D@uÐ s0(+ @Ag24298method tan proj LN<8! find-class ! qualifiers  specializers  lambda-list s !function lexically-visible-function <7plist  documentation load-defmethod <9operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<8top-level-form <v<7<9QA:@<:NaN /NAOf;H}D@uÐ s0(+ @Ag2432;method exp proj LN<;! find-class ! qualifiers  specializers  lambda-list s !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 <<:<<QA=@<=NaN /NAOf;H}D@uÐ s0(+ @Ag2435>method log proj LN<>! find-class ! qualifiers  specializers  lambda-list s !function lexically-visible-function <=plist  documentation load-defmethod ׋FBVF vJRP^N׋ɋuÐ null 0+ @<>top-level-form <<= ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<\top-level-form <} <[<]QA^@<^/_2op nan-p /FUV,EUE3Ҩu+;u4E3Ҩu9;uB^C3ɋuËW';űEU^W'W';uE^;t ^C뮋^C뤐 rs02{Nr s p3+ @Ag2468_method  two-arg-/ number !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^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<_top-level-form <? <^<`QAa@ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @VB vFRP^J׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @VB vFRP^J׋ɋuÐ null 0+ @ proj number LN<{! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function  defcomparison 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 <LN<{<} number proj 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Ð null 0+ @<<}<~<QA</uÐ arg1arg20(+ Ag2503method  two-arg-> proj !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Ð null 0+ @<<}<<QA</uÐ arg1arg20(+ Ag2507method  two-arg-= proj 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Ð null 0+ @top-level-form <LN<<<<QA@</uÐ arg1arg20(+ Ag2510method  two-arg-= number proj 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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2512method  two-arg-= proj !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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2516method  two-arg-< proj 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Ð null 0+ @top-level-form <LN<<<<QA@</uÐ arg1arg20(+ Ag2519method  two-arg-< number proj 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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2521method  two-arg-< proj !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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2525method  two-arg-<= proj 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Ð null 0+ @top-level-form <LN<<<<QA@</uÐ arg1arg20(+ Ag2528method  two-arg-<= number proj 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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2530method  two-arg-<= proj !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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2534method  two-arg->= proj 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Ð null 0+ @top-level-form <LN<<<<QA@</uÐ arg1arg20(+ Ag2537method  two-arg->= number proj 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Ð null 0+ @<<<<QA</uÐ arg1arg20(+ Ag2539method  two-arg->= proj !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Ð null 0+ @<<<<QA</Gu arg1arg20(+ Ag2542method  two-arg-/= proj 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Ð null 0+ @<top-level-form <:<<QA@</Gu arg1arg20(+ Ag2545method  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 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <t<<QA@</Gu arg1arg20(+ Ag2548method  two-arg-/= proj !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+ @<top-level-form <<<Q2xAg2550@<top-level-form < direct-calls  load-scm-info update-xref-info compile fboundp macro-function .inv-macro-function .inv-func_formals cons  find-class load-defmethod  make-proj eq not .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 boundp defvar  sy_function definef declaim defun defsetf setf record-source-file  defstruct  in-package  defpackage sets inf NaN *source-pathname*  references !7!8!9! ! short-vector  structurify