-#<> p2i.cl by nil on WINDSOME at 2005/11/22 11:45:15\ 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)Ag39<*source-pathname* pathname p2icl unspecific p2i.cl.\  /UV$VFɋuÐ null 0+ @p2i.clLN<top-level-form <QAg40@<ma internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <Q@mainfixop ga+ * ^ - / > < >= <= = and || && or expt aref _ /B!UV,E^;uɋuËES];t W';tEۋ][̐ x02{N*x p3+ @getprec prec /&UV$VGW';tɋuø x0+ Ag43@<preclist .globally-special.  ce-putprop or && and || not < > <= >= = + - * / ^ expt _ /0UV,FWƒ vRP^׋VFɋu null 0+ @top-level-form <sLN<<QAg44@preclist variable LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg45 < /uÐ null 0(+ @< <QAg46 < preclist prec .inv-get /EUV x0(+ @p2i parenfix / UV$^ɋuÐ x0+ @parenfix (~a)(princ )p< ~a!pop infixop , intersperse ~a(~a)!(!)p- (-~a)!)pgetprec > ~a(~a)/UVTU~JtMȀu Hpt8ȀuBHu:ENjV uRPɋujE믉E3ҋ^W';u΋E봋ItENjV uRP뼋XS;tcE^׋^";u{E^3A7EЋ]SF& jRP^*׉EȋNjV.uuRPOX;^2u@Xlj]̋V6 uRP"E^׋^:׋U^>W';tcvBE܋E^׉E؋]SÉUԋ^׋^:׉EċE؋Uԃ uRP^*׉ENjU܃ uRPvFE뛐 x &optional  upper-prec0 2{N  upper-prec x p3+ @ intersperse ~a~a~aprinc !!p~{~a~^~}parenfix /@UVLU܉EԋNjVvuvRP׉E}$]܋SCUU^W'UW+E؋]];}u׋EW_EЋNjU uRPɋu qlstprec02{Nlst :q p3+ 2xAg63 @< top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info +_2op cdr .inv-get null car record-source-file-1  ce-putprop internal-in-package   macro-calls setq + incf setf funcall mapc record-source-file declaim  defparameter  in-package  sets preclist *source-pathname*  references !!infixop !!! eql !! member getprec !get_2op ! get op !eq ! ! !case !p2i !parenfix !&! cadr cddr format typep !!>  intersperse !&!"!! !#!!consp !)ratiop < numberp not !,! !mapcar !)!!&! cons !nreverse !!)!/ UV$F^׋ɋuÐ null 0+ @32x< top-level-form <RQ32yAg64 @<  intersperse operator !!parenfix !!!p2i !!!op !!!preclist variable <getprec !!!infixop !!! load-scm-info / UV$F^׋ɋuÐ null 0+ @32y< top-level-form <RQ3Ag65 @< infixop  .de-args. Mgetprec !op !p2i !parenfix ! intersperse !store-doc-forms / UV$F^׋ɋuÐ null 0+ @< top-level-form <RQ