(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 4-Nov-93 17:20:24" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>LLARITH.;1|) "19-Feb-93 17:03:08" |bcompl'd| |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 15:42:46" "{Pele:mv:envos}Sources>CLTL2>LLARITH.;2" 74822 |previous| |date:| " 3-Sep-91 17:57:33" "{Pele:mv:envos}Sources>CLTL2>LLARITH.;1") IDIFFERENCE :D8 (L (1 Y 0 X)) @ANIL NIL () IGREATERP :D8 (L (1 Y 0 X)) @ANIL NIL () IQUOTIENT :D8 (L (1 Y 0 X)) @ANIL NIL () \\SLOWIPLUS2 :D8 (NAME IPLUS L (1 Y 0 X)) (P@dl@@YTdkj@j@YDn@Y;l@ b@d@@b3 @ AdlAA[RdkjAjA[BnA[9lA bAdAAb3 ]A HnHdnJnJkفJظIdnKHdnjkظInKkفKعLJnLHnHI@A (293 \\BIGNUM.PLUS 201 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 156 \\FIXP.FROM.FLOATP 102 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 55 \\FIXP.FROM.FLOATP) (184 RATIO 176 RATIO 167 RATIO 83 RATIO 75 RATIO 66 RATIO) () \\SLOWPLUS2 :D8 (NAME PLUS L (1 Y 0 X)) 2@A@A@3 @l bA3 Al b@A(39 \\LISPERROR 23 \\LISPERROR) NIL () \\SLOWIDIFFERENCE :D8 (NAME IDIFFERENCE L (1 Y 0 X)) uP@dl@@YTdkj@j@YDn@Y;l@ b@d@@b3 @ AdlAA[TdkjAjA[FnA[;lA bAdAAb3 A AjHIKjJjnJkغnJٺnKkػHnKj"KHdnJ!nJkٰ JnHJLHnk5Ij0oMjSMGJnk[JnkLjL @A  NMkHjIjo N>Ij+Hdj4nHkذ*JLdnJkԺLn༱.nHٸnIkعHI(507 \\FZEROP 476 \\FZEROP 470 \\BIGNUM.TIMES 215 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 168 \\FIXP.FROM.FLOATP 114 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 67 \\FIXP.FROM.FLOATP) (196 RATIO 188 RATIO 179 RATIO 95 RATIO 87 RATIO 78 RATIO) ( 501 -2147483648 422 -2147483648 285 -2147483648 230 -2147483648) \\SLOWTIMES2 :D8 (NAME TIMES L (1 Y 0 X)) 2@A@A@3 @l bA3 Al b@A(39 \\LISPERROR 23 \\LISPERROR) NIL () \\SLOWIQUOTIENT :D8 (NAME IQUOTIENT L (1 Y 0 X) F 9 \\OVERFLOW)  jddc@dl@@\Tdkj@j@\Dn@\;l@ b@d@@b3 @ AdlAA^TdkjAjA^DnA^;lA bAdAAb3 ^A Kn(LjKjnKkػnKٻnLkؼi__Mn)NjMjnMkؽnMٽnNkؾOh_Kj{Mj&LjNdjWioA jk$LOCJj.Idj5nIkر*LNNdnHkظNLLNټJkغNHkٸjHJະMjXN]jOONkKnLj\jlMKLNKdMnMMNdnMkԽNnHkذOOLjKnMdj𲴿Nk@A nNLkؼkٻJkغNMdkjNnؾMHkٸjHIJdnIkԹJnKMMKNdL񳿿KMNLLNټjnIٹnJkغIJ(554 \\BIGNUM.QUOTIENT 336 ERROR 206 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 159 \\FIXP.FROM.FLOATP 105 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 58 \\FIXP.FROM.FLOATP) (187 RATIO 179 RATIO 170 RATIO 86 RATIO 78 RATIO 69 RATIO) ( 330 "DIVIDE BY ZERO") \\SLOWQUOTIENT :D8 (NAME QUOTIENT L (1 Y 0 X)) 2@A@A@3 @l bA3 Al b@A(39 \\LISPERROR 23 \\LISPERROR) NIL () \\BOXIPLUS :D8 (L (1 Y 0 X)) @@"AdlAA[XdkjAjA[HnA[?lA bAdAAb3 A A HdnJnJkفJX@IdnKHdnjkظInKkفK@H@(112 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 105 \\ILLEGAL.ARG 61 \\FIXP.FROM.FLOATP) (89 RATIO 81 RATIO 72 RATIO) () \\BOXIDIFFERENCE :D8 (L (1 Y 0 X)) @@"AdlAA[ZdkjAjA[JnA[AlA bAdAAb3 A A KjJjnJkغnJٺnKkػHdnJnJkفJX@IdnKHdnjkظInKkفK@H@(112 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 105 \\ILLEGAL.ARG 61 \\FIXP.FROM.FLOATP) (89 RATIO 81 RATIO 72 RATIO) () \\MAKENUMBER :D8 (L (1 N1 0 N0)) KAdjAAA b@dj@@@ bdjAnlAlXd@HA(37 \\ILLEGAL.ARG 17 \\ILLEGAL.ARG) NIL () OVERFLOW :D8 (L (0 FLG) F 0 \\OVERFLOW) P@diijcNIL NIL () \\GETBASEFIXP :D8 (L (1 OFFST 0 BASE)) @AHHNIL NIL () \\PUTBASEFIXP :D8 (L (2 VAL 1 OFFST 0 BASE)) G BdkjBjBnBӋl BBYBl b@AH@AkIB(48 \\LISPERROR) NIL () \\PUTBASEFIXP.UFN :D8 (L (2 OFFST 1 VAL 0 BASE)) G AdkjAjAnAӋl AAYAl b@BH@BkIA(48 \\LISPERROR) NIL () EQP :D8 (L (1 Y 0 X)) b@dAid3 A3 @Aj@@d3 AA3 @A @3A3@A@A@dl@Al @A (95 EQDEFP 47 FEQP) NIL () FIX :D8 (L (0 N)) @jNIL NIL () IQUOTIENT :D8 (L (1 Y 0 X)) @ANIL NIL () IREMAINDER :D8 (L (1 Y 0 X) F 9 \\OVERFLOW)  jddc@dl@@\Tdkj@j@\Dn@\;l@ b@d@@b3 @ AdlAA^TdkjAjA^DnA^;lA bAdAAb3 ^A Kn(LjKjnKkػnKٻnLkؼi__Mn)NjMjnMkؽnMٽnNkؾOh_Kj{Mj&LjNdjWioA jk$jOCLj.Kdj5nKkر*LNNdnHkظNLLNټJkغNHkٸjHJະMjXN]jOONkKnLj\jlMKLNKdMnMMNdnMkԽNnHkذOOLjKnMdj𲴿Nk@A nNLkؼkٻJkغNMdkjNnؾMHkٸjHIJdnIkԹJnKMMKNdL񳿿KMNLLNټjnKٻnLkؼKL(554 \\BIGNUM.REMAINDER 336 ERROR 206 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 159 \\FIXP.FROM.FLOATP 105 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 58 \\FIXP.FROM.FLOATP) (187 RATIO 179 RATIO 170 RATIO 86 RATIO 78 RATIO 69 RATIO) ( 330 "DIVIDE BY ZERO") LLSH :D8 (L (1 N 0 X)) jA@jA  @dl@@YXdkj@j@YHn@Y?l@ b@d@@b3 @ @ AdljlIjAlbAlHlIظIlAlـAdj HnIdnHkԸInkٰHI(120 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 113 \\ILLEGAL.ARG 69 \\FIXP.FROM.FLOATP 12 LRSH) (97 RATIO 89 RATIO 80 RATIO) () LRSH :D8 (L (1 N 0 X)) jA@jA  @dl@@YXdkj@j@YHn@Y?l@ b@d@@b3 @ @ AdljlHjAlbAlIHlعHAlـAdjIHdkjInعHkٰHI(120 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 113 \\ILLEGAL.ARG 69 \\FIXP.FROM.FLOATP 12 LLSH) (97 RATIO 89 RATIO 80 RATIO) () LSH :D8 (L (1 N 0 X)) :AjAj@@jA @jjAdl@A dj@dbkٰ@(39 \\BIGNUM.LSH 18 \\RSH) NIL () RSH :D8 (L (1 N 0 X)) @A (6 \\RSH) NIL () \\RSH :D8 (L (1 N 0 X)) jA@jA@jj @dl@@YRdkj@j@YBn@Y9l@ b@d@@b3 }@ AdlHnmlHYnnjAlbAlIHlعHHnnjظAlـAdjIHkjjnعHHnظkٰHI@jA (242 \\BIGNUM.LSH 116 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 71 \\FIXP.FROM.FLOATP) (99 RATIO 91 RATIO 82 RATIO) () MINUSP :D8 (L (0 X)) @o@j@NIL NIL ( 8 0.0) ILESSP :D8 (L (1 Y 0 X)) A@NIL NIL () IMINUS :D8 (L (0 X)) j@NIL NIL () IPLUS :D8 (L (0 N)) BeHdlkaladkkajjjkalalalJHIJaعJkZINIL NIL () ITIMES :D8 (L (0 N)) @eHdlkaladkkajjkalalalJHIJaڹJkZINIL NIL () LOGAND :D8 (L (0 N)) CeHdlkaladkkajjmkalalalJHIJaJkZINIL NIL () LOGOR :D8 (L (0 N)) BeHdlkaladkkajjjkalalalJHIJaJkZINIL NIL () LOGXOR :D8 (L (0 N)) BeHdlkaladkkajjjkalalalJHIJaJkZINIL NIL () SUB1 :D8 (L (0 X)) @kNIL NIL () ZEROP :D8 (L (0 X)) @dji@ (16 \\FZEROP) NIL () ADD1 :D8 (L (0 X)) @kNIL NIL () GCD :D8 (L (1 N2 0 N1)) #Aj@jAjA@bbA@AbbNIL NIL () IEQP :D8 (L (1 Y 0 X)) @AjNIL NIL () INTEGERLENGTH :D8 (L (0 X)) &@dkj@j@bo@n@Cl@"l@l@@jjkll@lll@@l @lll@lln@ n@n@l l n@l l n@@n @l ln@lll\@Hdn8@HnIdjl IjHdjnHkXnHٸnIkؿHj@bH l@d@  (291 CL::%NOT-INTEGER-ERROR 285 \\BIGNUM.INTEGERLENGTH 266 INTEGERLENGTH 174 SHOULDNT) (277 BIGNUM) ( 24 65536) ABS :D8 (L (0 X)) k@HYd3 ij@j@@Id!j@ j@ @ @ igHoh b(100 CHECK-TYPE-FAIL 80 %COMPLEX-ABS 67 %MAKE-RATIO 62 CL:DENOMINATOR 55 CL:NUMERATOR 45 CL:NUMERATOR) (87 X 73 COMPLEX 35 RATIO 17 FLOATP) ( 93 (OR (OR INTEGER FLOAT) RATIO COMPLEX)) DIFFERENCE :D8 (L (1 Y 0 X)) @ANIL NIL () GREATERP :D8 (L (1 Y 0 X)) @d3 A3 @A@ANIL NIL () PLUS :D8 (L (0 N)) 2ejIH$IkYa3 JdjIa؊JoIa躰JNIL NIL ( 40 0.0) QUOTIENT :D8 (L (1 Y 0 X)) #@d3 A3 @A@A@A@A (32 CL::%/) NIL () REMAINDER :D8 (L (1 Y 0 X)) @d3 A3 @A@A (20 FREMAINDER) NIL () LESSP :D8 (L (1 Y 0 X)) Ad3 @3 A@A@NIL NIL () MINUS :D8 (L (0 X)) @o@j@NIL NIL ( 8 0.0) TIMES :D8 (L (0 N)) 2ejIH$IkYa3 JdkIaڊJoIa꺰JNIL NIL ( 40 1.0) FMINUS :D8 (L (0 X)) o@NIL NIL ( 4 0.0) FREMAINDER :D8 (L (1 Y 0 X)) @dAjANIL (10 FLOATP) () RANDSET :D8 (L (0 X) P 7 \\OVERFLOW) @@diZZ3 @d3 @ZH@ l72@d3 ih!0@djؼMLh^L&NXJo@ j0o(dInKInMInJZMLh^L&NXH HHdl l7`kCOO_OOO_OOh__O_Ok_O&_(193 FNTH 181 LAST 115 ERROR 51 LENGTH 24 IDATE 18 CLOCK) (207 RANDSTATE 199 RANDSTATE) ( 128 (53375 47430 1274 55702 61592 27723 11236 16824 35838 62289 11525 37822 34676 105 58750 27759 9988 4217 56951 30292 24550 1397 54588 54264 43300 3862 39006 11386 52259 1055 955 16320 19910 58470 3263 64657 1704 17373 56820 17255 51637 47962 26272 4464 2884 51773 39422 64835 57733 34919 5315 12110 15116 10133 10816) 109 "ARG NOT PREVIOUS VALUE OF RANDSET") RAND :D8 (L (1 UPPER 0 LOWER))  `i ```HIHdInA;@ `j@dd j3 `@@`o@3 FAd3 Ad@@Ab@bdn``Ak @`Ak@A@`o@(171 IMOD 83 \\FZEROP 16 RANDSET) (196 RANDSTATE 179 RANDSTATE 159 RANDSTATE 152 RANDSTATE 105 RANDSTATE 94 RANDSTATE 66 RANDSTATE 38 RANDSTATE 30 RANDSTATE 22 RANDSTATE 7 RANDSTATE) ( 203 65536.0 112 65536.0) EXPT :D8 (L (1 N 0 A)) A3 @3 =AjAjk@A @jjkAdkj@HָAmbjH@dbo@b AjooojAo@bjAb@dbAkj@HָAbjH(85 FEQP 25 FEXPT) (78 FLOATP) ( 120 1.0 107 1.0 101 0.0 95 1.0 72 0.0) |PutUnboxed| :D8 (L (1 NUM 0 PTR)) @A (6 \\PUTFIXP) NIL () \\PUTFIXP :D8 (L (1 NUM 0 PTR)) w AdlAAYXdkjAjAYHnAY?lA bAdAAb3 A A @H@IA(106 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 99 \\ILLEGAL.ARG 55 \\FIXP.FROM.FLOATP) (83 RATIO 75 RATIO 66 RATIO) () \\PUTSWAPPEDFIXP :D8 (L (1 NUM 0 PTR)) w AdlAAYXdkjAjAYHnAY?lA bAdAAb3 A A @H@IA(106 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 99 \\ILLEGAL.ARG 55 \\FIXP.FROM.FLOATP) (83 RATIO 75 RATIO 66 RATIO) () \\HINUM :D8 (L (0 NUM)) d@dl@dkj@jn@ӿ@l@ b@d@@b3 @ @ H(96 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 88 \\ILLEGAL.ARG 44 \\FIXP.FROM.FLOATP) (72 RATIO 64 RATIO 55 RATIO) () \\LONUM :D8 (L (0 NUM)) [@dl@dkj@@@l@ b@d@@b3 @ @ h(87 CL::%NOT-NONCOMPLEX-NUMBER-ERROR 79 \\ILLEGAL.ARG 35 \\FIXP.FROM.FLOATP) (63 RATIO 55 RATIO 46 RATIO) () POWEROFTWOP :D8 (L (0 X)) G@d63 =@j8@dnjmbmj!@ll kdkjj @dkj(47 EXPT) NIL () IMOD :D8 (L (1 N 0 X)) j@Ab@A@NIL NIL () ODDP :D8 (L (0 |-args-|)) ,eka!ldHaIJ [j KK h(39 \\FZEROP 23 CL:MOD) NIL () FLESSP :D8 (L (1 Y 0 X)) A@NIL NIL () FMAX :D8 (L (0 K)) CeHj`kdaJ3l Jh IdHJkYa[JKZ(39 ERRORX) (56 FLOATP 21 FLOATP 12 MIN.FLOAT) () FMIN :D8 (L (0 K)) DeHj`kdaJ3l Jh IdHJkعJIa[KZ(39 ERRORX) (58 FLOATP 21 FLOATP 12 MAX.FLOAT) () GEQ :D8 (L (1 Y 0 X)) A@hNIL NIL () IGEQ :D8 (L (1 Y 0 X)) A@hNIL NIL () ILEQ :D8 (L (1 Y 0 X)) @AhNIL NIL () IMAX :D8 (L (0 K)) +eHj`kdaIdHJkعJIaIaNIL (12 MIN.INTEGER) () IMIN :D8 (L (0 K)) *eHj`kdaIdHJkعJIaIaNIL (12 MAX.INTEGER) () LEQ :D8 (L (1 Y 0 X)) @AhNIL NIL () MAX :D8 (L (0 K)) 9eHj`kdaJ3l Jh IdHJkYa[JKZ(34 ERRORX) (12 MIN.INTEGER) () MIN :D8 (L (0 K)) :eHj`kdaJ3l Jh IdHJkعJIa[KZ(34 ERRORX) (12 MAX.INTEGER) () (PRETTYCOMPRINT LLARITHCOMS) (RPAQQ LLARITHCOMS ((COMS (* \; "OPCODES") (FNS IDIFFERENCE IGREATERP IQUOTIENT) (* |;;| "\\slowplus2 \\slowdifference \\slowtimes2 \\slowquotient are redefined in cmlarith") (FNS \\SLOWIPLUS2 \\SLOWPLUS2 \\SLOWIDIFFERENCE \\SLOWDIFFERENCE \\SLOWIGREATERP \\SLOWLLSH1 \\SLOWLLSH8 \\SLOWLOGAND2 \\SLOWLOGOR2 \\SLOWLOGXOR2 \\SLOWLRSH1 \\SLOWLRSH8 \\SLOWITIMES2 \\SLOWTIMES2 \\SLOWIQUOTIENT \\SLOWQUOTIENT)) (COMS (* \; "IPLUS and IDIFFERENCE that smash result into their first arg") (FNS \\BOXIPLUS \\BOXIDIFFERENCE)) (* \; "subfunctions") (FNS \\MAKENUMBER) (FNS OVERFLOW) (INITVARS (\\OVERFLOW T)) (CONSTANTS (MAX.SMALLP 65535) (MIN.SMALLP -65536) (MAX.FIXP 2147483647) (MIN.FIXP -2147483648) (\\SIGNBIT 32768)) (FNS \\GETBASEFIXP \\PUTBASEFIXP \\PUTBASEFIXP.UFN) (EXPORT (DECLARE\: DONTCOPY (RECORDS FIXP) (CONSTANTS ( MAX.SMALL.INTEGER 65535) (MAX.POS.HINUM 32767)) (* |;;| "Unbox changed to handle ratios") (MACROS .UNBOX. .NEGATE. .LLSH1. .LRSH1. .BOXIPLUS.))) (DECLARE\: DONTCOPY (MACROS OLD.UNBOX.)) (* |;;| "Eqp modified to be like =") (FNS EQP FIX IQUOTIENT IREMAINDER LLSH LRSH LSH RSH \\RSH) (DECLARE\: EVAL@COMPILE DONTCOPY (MACROS NBITS.OR.LESS .SUBSMALL. \\IQUOTREM)) (* \; "Machine independent arithmetic functions") (* |;;| "MINUSP redefined in cmlarith ") (FNS MINUSP ILESSP IMINUS IPLUS ITIMES LOGAND LOGOR LOGXOR SUB1 ZEROP ADD1 GCD IEQP INTEGERLENGTH) (* |;;| "abs, difference, greaterp, plus, lessp, and times redefined in cmlarith. ") (* |;;| "quotient and minus modified to handle ratios") (* |;;| "remainder remains as is") (FNS ABS DIFFERENCE GREATERP PLUS QUOTIENT REMAINDER LESSP MINUS TIMES) (FNS FMINUS FREMAINDER) (FNS RANDSET RAND EXPT) ( DECLARE\: DONTEVAL@LOAD DOCOPY (VARS (RANDSTATE) (\\TOL 9.9999925E-6))) (GLOBALVARS RANDSTATE \\TOL) ( COMS (FNS |PutUnboxed| \\PUTFIXP \\PUTSWAPPEDFIXP \\HINUM \\LONUM) (EXPORT (DECLARE\: DONTCOPY (MACROS |PutUnboxed|)))) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA MIN MAX IMIN IMAX FMIN FMAX ODDP TIMES PLUS LOGXOR LOGOR LOGAND ITIMES IPLUS))) (* |;;| "ODDP redefined in cmlarith") (COMS (FNS POWEROFTWOP IMOD ODDP) (DECLARE\: DONTCOPY (MACROS .2^NP.))) (COMS (* \; "MIN and MAX") (FNS FLESSP FMAX FMIN GEQ IGEQ ILEQ IMAX IMIN LEQ MAX MIN) (DECLARE\: EVAL@COMPILE (ADDVARS (GLOBALVARS MAX.INTEGER MIN.INTEGER MAX.FLOAT MIN.FLOAT)))) (DECLARE\: DONTCOPY DOEVAL@COMPILE DONTEVAL@LOAD (LOCALVARS . T)))) (RPAQ? \\OVERFLOW T) (RPAQQ MAX.SMALLP 65535) (RPAQQ MIN.SMALLP -65536) (RPAQQ MAX.FIXP 2147483647) (RPAQQ MIN.FIXP -2147483648) (RPAQQ \\SIGNBIT 32768) (CONSTANTS (MAX.SMALLP 65535) (MIN.SMALLP -65536) (MAX.FIXP 2147483647) (MIN.FIXP -2147483648) ( \\SIGNBIT 32768)) (RPAQQ RANDSTATE NIL) (RPAQQ \\TOL 9.9999925E-6) (ADDTOVAR GLOBALVARS MAX.INTEGER MIN.INTEGER MAX.FLOAT MIN.FLOAT) (PUTPROPS LLARITH COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993)) NIL