zi;#<> polar.lisp by nil on WINDSOME at 2005/12/2 16:46:50\ using 7.0 [Windows] (Oct 20, 2004 22:05).\ Optimization settings at wfasl time:\ ((speed 3) (safety 0) (space 1) (compilation-speed 1) (debug 2)) *)"7.0 [Windows] (Oct 20, 2004 22:05)Ag1947<*source-pathname* pathname polarlisp unspecific  polar.lisp  /UV$VFɋuÐ null 0+ @ polar.lispLN<top-level-form <QAg1948@<polar use A common-lispAgashadowing-import-from Aga+-/*expt=/=><<=>=sincostanatanasinacossinhcoshatanhexptlogexpsqrt1-1+absincfdecftocl re-intern numerator denominatorrealpartcompleximagpart&export polar defpackage-1 /UV$FV^W'ɋuÐ null 0+ @<top-level-form <QAg1949@<polarprovide / UV$F^׋ɋuÐ null 0+ @<top-level-form <2QAg1950@<polar internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <FQAg1952@<polarpolar check-lock-def-defstruct / UV$F^׋ɋuÐ null 0+ @top-level-form <LN<< QAg1953 @polar type LN< !< record-source-file-1 /(UV,F vRP^׋ɋuÐ null 0+ @< < QAg1954 < /uÐ null 0(+ @< < QAg1955polar type LN<polar-th operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg1957<get-built-in-accessor polar-th .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ null 0+ @<< QAg1958polar type LN<polar-r operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg1960<get-built-in-accessor polar-r .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ null 0+ @<< QAg1961<polar-th  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu null 0+ @<< QAg1962<polar-th setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu null 0+ @<< QAg1963polar type LN<polar-th  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg1964</uÐ null 0(+ @<< QAg1965<polar-r  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu null 0+ @<< QAg1966<polar-r setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu null 0+ @<< QAg1967polar type LN<polar-r  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<< QAg1968</uÐ null 0(+ @<< QA<r th polar /b1UVDEU EU3۳HWO]ԋ;u0׋C;u,}F" uRP3ɱkɋuËS͋[ ] &key ArAth 02{N< p3+ @Ag1970! ׋FBVF vJRP^N׋ɋuÐ null 0+ @<3top-level-form <T<2<4QA5@<5polar-r polar-th append /@UVlE33ҲuRP׋]ċ[SCUЋPUPB]ZE̋CE܋CX]]̋SUUЋF3ɱW/ЋE3ɱW/W+E؋]̋[SUUЋF3ɱW/ЋE3ɱW/W+Eԋ]܋SUUF3ɱW/ЋE3ɱW/W+Eȋ]܋[SUUF3ɱW/ЋE3ɱW/W+EE؋UԃuuRP^׋Ћ uRP3ɱW/ɋuÐ  **macroarg**..environment..02{Nbody a2 bind2 a1 bind1  **macroarg** p3+ @Ag19986<6 with-polar2 lexically-visible-function <5macro-function  set-func_name fboundp a1 a2 bind1 bind2 body .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <SLN<6<7<5 with-polar2 QAg20008@<8 with-polar2 %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<8<7QAg20019 with-polar2 operator LN<9!!<:record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<9<7QAg2002;<;/uÐ null 0(+ @<;<7QA<<<polar-r polar-th /eUVLE3 3Ҳ uRP׋]ԋ[SCUP]ȋXU܋SUU܋Z]ЋUF3ɱW/ЋE3ɱW/W+E؋]܋[SŰUF3ɱW/ЋE3ɱW/W+ЋE؋W'Ћ uRP3ɱW/ɋuÐ  **macroarg**..environment..02{Nbody a1 bind1  **macroarg**  p3+ @Ag2006=<= with-polar1 lexically-visible-function <<macro-function  set-func_name fboundp a1 bind1 body .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <9LN<=<><< with-polar1 QAg2008?@QAg2009@ with-polar1 operator LN<@!!QAg2010BQAC ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ -DT! @+ - abs < polar /p8UV4UvE܉E3ҋ^W';uVE^W'EE^"׉EEu܋3AW#E^&׋^*;tEU^.W'ɋuÐ rth02{Nr th Anorm]p3+ @Ag2040^method  polarnorm number !LN<^! find-class ! qualifiers  specializers  lambda-list r !th !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+ @labels <_norm LN<^top-level-form < <\<_<[<`QAa@VB vFRP^J׋ɋ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 <VB vFRP^J׋ɋuÐ null 0+ @<~top-level-form <?<}<QA@</@u x0(+ Ag2073method abs polar 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Ð null 0+ @<top-level-form <0<<QA@< symbol-name two-arg-concat-to-sstring_2op ga intern  defmethod arg1 polar arg2 number !!!!!!!!compile / {UVTE33ҲuRP׋]Ћ[S‰U^׋ЋF^W'V^"W'ЉU؋F& v*RP_׉EU؋F& v.RP_׉E܋U؋F& v2RP_׉EԋU؋3ɱW/ЋF63ɱW/E̋U䋇3ɱW/UEȋuuuuRP3ɱW/ɋuÐ  **macroarg**..environment..02{Nop two-arg  **macroarg** p3+ @Ag2078< 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 null 0+ @top-level-form <]LN<<< defcomparison QAg2080@< defcomparison %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg2081 defcomparison operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2082</uÐ null 0(+ @<<QA</uÐ arg1arg20(+ Ag2085method  two-arg-> polar 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(+ Ag2088method  two-arg-> number polar 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(+ Ag2090method  two-arg-> polar !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(+ Ag2094method  two-arg-< polar 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(+ Ag2097method  two-arg-< number polar 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(+ Ag2099method  two-arg-< polar !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(+ Ag2103method  two-arg-<= polar 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(+ Ag2106method  two-arg-<= number polar 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(+ Ag2108method  two-arg-<= polar !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(+ Ag2112method  two-arg->= polar 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(+ Ag2115method  two-arg->= number polar 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(+ Ag2117method  two-arg->= polar !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<= /F#UV4E܋@]܋[]U؋R]؋[]^W';uɋuËEU^W' arg1arg202{Nb d arg1 arg2 p3+ @Ag2120method  two-arg-= polar !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 <R<<QA@</= /D"UV4E܋@]܋[]U؋R]؋[]^W';tɋuËEU^W' arg1arg202{Nb d arg1 arg2 p3+ @Ag2123method  two-arg-/= polar !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 <<<QA@</uÐ arg1arg20(+ Ag2126method  two-arg-= polar 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\F^׉EG‹^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <<<<QA@</Gu arg1arg20(+ Ag2129method  two-arg-/= polar 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\F^׉EG‹^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <r<<Q2xAg2131@<top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info compile cons 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  defpackage-1 " macro-calls  defcomparison defmacro list  defmethod  sy_function definef declaim defun defsetf setf record-source-file  defstruct  in-package  defpackage sets *source-pathname*  references !3<"! short-vector  structurify polar !!5!6<4!polar-th polar-r format  with-polar2 !#cadr bq-quote !&bq-list  backquote lambdascan-maxargs  car-fussy !!append car cdr dt-macro-argument-check  with-polar1 !#!<!B!=!&!>!?!@!A !! append_2op !C!D!Ewith-polar-rect2 !#!<!=!&!>!?!@!A!!!B!C!D!Ewith-polar-rect1 !#!<!B!=!&!>!?!@!A !!!G!C!D!E not <`!mod !P<= !N!R!? concatenate !@!A !list*  symbol-name concat-to-sstring_2op intern !C!D!E<!= !R!8!9<!/= !8!9!/ UV$F^׋ɋuÐ null 0+ @32x<top-level-form <Q32yAg2132@< defcomparison operator <polarize !!!with-polar-rect1 !