_#<> interval.lisp by nil on WINDSOR at 2005/12/30 07:54:59\ using 7.0 [Windows] (Dec 27, 2005 15:00).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 0)) *)"7.0 [Windows] (Dec 27, 2005 15:00)Ag40228<*source-pathname* pathname intervallisp unspecific  interval.lisp  /UV$VFɋuÐ 0+ @ interval.lispLN<top-level-form <QAg40229@<ri use AgaAclshadowing-import-from Aga+-/*expt=/=><<=>=sincostanatanasinacossinhcoshatanhexptlogexpsqrt1-1+abstocl re-interntruefalse!!Aclunion intersectionexport riunion intersection defpackage-1 /UV$FV^W'ɋuÐ 0+ @<top-level-form <QAg40230@<garequire / UV$F^׋ɋuÐ 0+ @top-level-form <LN<<QAg40231 @< riprovide / UV$F^׋ɋuÐ 0+ @< <QAg40232 < ri internal-in-package / UV$F׋^W'ɋu 0+ @< top-level-form <QAg40234 @< riri check-lock-def-defstruct / UV$F^׋ɋuÐ 0+ @top-level-form <LN< < QAg40235@ri type LN<!<record-source-file-1 /(UV,F vRP^׋ɋuÐ 0+ @<< QAg40236</uÐ 0(+ << QAg40237ri type LN<ri-hi operator <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg40239<get-built-in-accessor ri-hi .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ 0+ @<< QAg40240ri type LN<ri-lo operator <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg40242<get-built-in-accessor ri-lo .inv-symbol-function /&UV$^3׋ЋF^W'ɋuÐ 0+ @<< QAg40243<ri-hi  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu 0+ @<< QAg40244<ri-hi setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu 0+ @<< QAg40245ri type LN<ri-hi  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg40246</uÐ 0(+ << QAg40247<ri-lo  setf-inverse ce-get defsetf check-lock-definitions /4UV4FV^W'EFVuWRP^"׋ɋu 0+ @<< QAg40248<ri-lo setf-method-expander  ce-putprop defstruct-slot-defsetf-handler  setf-inverse /D"UV,F׃ vRP^׋F׋ЋF v"RP^׋ɋu 0+ @<< QAg40249ri type LN<ri-lo  setf-method <record-source-file-1 /$UV,FV vRP^׋ɋu 0+ @<< QAg40250 < /uÐ 0(+ < < QA! ׋FBVF vJRP^N׋ɋuÐ 0+ @<6top-level-form <e<5<7Q@mkstr ensure-resource quote string-output-simple-stream "princ get-output-stream-string !!!"/EUV<>/uÐ 0(+ <><:QA? ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ri &please fix program for interval sin ~s/N'UV,PE@^W'^׋V^W';t3Ҳɋ^"g'UF&W'ɋu 0+ @Ag40347[method sin ri LN<[! find-class ! qualifiers  specializers  lambda-list s !function lexically-visible-function ׋FBVF vJRP^N׋ɋuÐ 0+ @<[top-level-form <  ri &please fix program for interval cos ~s/N'UV,PE@^W'^׋V^W';t3Ҳɋ^"g'UF&W'ɋu 0+ @Ag40351^method cos ri 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Ð 0+ @<^top-level-form <7<]<_QA`@<`<= 'division by interval containing zero ~s/ min reduce max ri /iUV\X]ԋ@EZBUȉEÉ]3҃ uRP^;tUȋFW'ɋuËEԋU܋^W'E؋EԋU^W'EЋEU܋^W'EċEU^W'EE؋UЃuuRP3ɱW/^E̋CŰ^"W'E^&CŰ^"W'ЋEɋ^*g' 0 + @Ag40356amethod  two-arg-/ ri !LN ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @ ׋FBVF vJRP^N׋ɋuÐ 0+ @internal ׋FBVF vJRP^N׋ɋuÐ 0+ @ 1- mini2 /UVlEU܋E3ҋ^W';t ]CɋuËE܋U^W'^3ҲW'ЋE܉U^W'u3AEԋEU^W'u3A]ԋSXEЋ‹ӉẺ]ȋ^"W';t?E^&׉EEU܃uuuRPGUȉE؋^"W';tHEQE^&׉EEUuuuRPỦE؋^"W';tMEE^&׉EEUuuuRPEċE؋ ]uT;E~_EE^&׉EEU܃uuuRP^*׉EE؋ ]u';E~2EUċW';tEoUW';t΋EV 0+ Aq@ ׋FBVF vJRP^N׋ɋuÐ 0+ @labels ׋FBVF vJRP^N׋ɋuÐ 0+ @<{top-level-form <dt-macro-argument-check  with-ri2 !#!B!Nappend !O!P!%!Q!R!S !!H!!T!@ append_2op !U!V!A!>!W with-ri !#!B!N!O!P!%!Q!R!S !!H!T!@!U!!V!A!>!W  !7!8<_!!b!6!c!d!e!7!8 !^!,!>_2op 1- !h< !6!B!\!f!8!g