(FILECREATED "21-Aug-84 16:26:57" ("compiled on " {ERIS}SOURCES>LLARITH.;10) "20-Aug-84 10:09:10" recompiled changes: \SLOWPLUS2 \SLOWDIFFERENCE \SLOWTIMES2 \SLOWQUOTIENT RANDSET in "INTERLISP-D 20-Aug-84 ..." dated "20-Aug-84 10:53:58") (FILECREATED "21-Aug-84 16:24:49" {ERIS}SOURCES>LLARITH.;10 48172 changes to: (VARS LLARITHCOMS) (FNS \SLOWQUOTIENT \SLOWTIMES2 \SLOWDIFFERENCE \SLOWPLUS2 RANDSET) previous date: " 8-Aug-84 11:51:11" {ERIS}SOURCES>LLARITH.;8) IDIFFERENCE D1 (L (1 Y 0 X)) @AÙNIL NIL () IGREATERP D1 (L (1 Y 0 X)) @AñNIL NIL () IQUOTIENT D1 (L (1 Y 0 X)) @AÛNIL NIL () \SLOWIPLUS2 D1 (NAME IPLUS L (1 Y 0 X) F 5 \OVERFLOW) õP@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°.lð—@ b°½@l b°³dkð².¿AÒlð“jºA…nÿÿºAÓ»Hnÿñ\HdnÿÿJÙñ²"nÿÿJÙkØÙ°lð—A b°žAl b°”JØXIdnÿÿKÙñ²¿ddnÿÿð’¿jkØ¸InÿÿKÙkØÙKØYLJnÿñð²LHnÿñð®Udið¿HIõl2 ¿HIõ³üL”oo(340Q \LISPERROR 225Q \LISPERROR 213Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL ( 362Q 17777777777Q 355Q -20000000000Q) \SLOWPLUS2 D1 (NAME PLUS L (1 Y 0 X)) =@µA“@Aè@d¡¬o@ib°áAd¡oAib¿°Ê@AØ(62Q LISPERROR 35Q LISPERROR) NIL ( 55Q "NON-NUMERIC ARG" 30Q "NON-NUMERIC ARG") \SLOWIDIFFERENCE D1 (NAME IDIFFERENCE L (1 Y 0 X) F 5 \OVERFLOW) .P@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°/lð—@ b°½@l b°³dkð²¿AÒlð”jºA[‡nÿÿºAÓ»Ajð²HIõlð—A b°®Al b°¤KjðJjð³nÿÿJÙkØºnÿÿJÙºnÿÿKÙkØ»Hnÿñ\KjðœJn€ð–HJæ¸L°LHdnÿÿJÙñ˜nÿÿJÙkØÙJØ¸IdnÿÿKÙñ²¿Hdnÿÿð’¿jkØ¸InÿÿKÙkØÙKØ¹LJnÿñð²LHnÿñð®Udið¿HIõl2 ¿HIõ³üL”oo(431Q \LISPERROR 205Q \LISPERROR 173Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL ( 453Q 17777777777Q 446Q -20000000000Q) \SLOWDIFFERENCE D1 (NAME DIFFERENCE L (1 Y 0 X)) =@µA“@Aé@d¡¬o@ib°áAd¡oAib¿°Ê@AÙ(62Q LISPERROR 35Q LISPERROR) NIL ( 55Q "NON-NUMERIC ARG" 30Q "NON-NUMERIC ARG") \SLOWIGREATERP D1 (NAME IGREATERP L (1 Y 0 X)) —@@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°.lð—@ b°½@l b°³dkð²¿AÒlð“jºA…nÿÿºAÓ»HdJð²¿IKñlð—A b°Al b°£n€æJn€æñ(206Q \LISPERROR 174Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL () \SLOWLLSH1 D1 (L (0 X)) \ @dlð™¿@È¹@È°dkð²$¿@Òlð“j¹@…nÿÿ¹@Ó¸InÿåàHnÿñ²k°lð—@ b°¿@l b°µjØHnÿåàõ(114Q \LISPERROR 102Q \FIXP.FROM.FLOATP) NIL () \SLOWLLSH8 D1 (L (0 X)) Q @dlð™¿@È¸@È°dkð²#¿@Òlð“j¸@…nÿÿ¸@Ó¹HlÿåáIãØIlÿåáõlð—@ b°À@l b°¶(113Q \LISPERROR 101Q \FIXP.FROM.FLOATP) NIL () \SLOWLOGAND2 D1 (NAME LOGAND L (1 B 0 A)) ‰@@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°.lð—@ b°½@l b°³dkð²¿AÒlð“jºA…nÿÿºAÓ»HJåIKåõlð—A b°°Al b°¦(203Q \LISPERROR 171Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL () \SLOWLOGOR2 D1 (NAME LOGOR L (1 B 0 A)) ‰@@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°.lð—@ b°½@l b°³dkð²¿AÒlð“jºA…nÿÿºAÓ»HJäIKäõlð—A b°°Al b°¦(203Q \LISPERROR 171Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL () \SLOWLOGXOR2 D1 (NAME LOGXOR L (1 B 0 A)) ‰@@dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlð²"¿AÈºAÈ°.lð—@ b°½@l b°³dkð²¿AÒlð“jºA…nÿÿºAÓ»HJæIKæõlð—A b°°Al b°¦(203Q \LISPERROR 171Q \FIXP.FROM.FLOATP 116Q \LISPERROR 104Q \FIXP.FROM.FLOATP) NIL () \SLOWLRSH1 D1 (L (0 X)) V @dlð™¿@È¸@È°dkð²"¿@Òlð“j¸@…nÿÿ¸@Ó¹HâIâHkåjð²j°lð—@ b°Á@l b°·n€Øõ(112Q \LISPERROR 100Q \FIXP.FROM.FLOATP) NIL () \SLOWLRSH8 D1 (L (0 X)) N @dlð™¿@È¸@È°dkð² ¿@Òlð“j¸@…nÿÿ¸@Ó¹HãHlÿåáIãØõlð—@ b°Ã@l b°¹(110Q \LISPERROR 76Q \FIXP.FROM.FLOATP) NIL () \SLOWITIMES2 D1 (NAME ITIMES L (1 Y 0 X) F 10Q \OVERFLOW) Ë@jð£Ajð‘jjdb@dlð™¿@Èº@È°dkð²&¿@Òlð“jº@…nÿÿº@Ó¼Adlð²"¿AÈ»AÈ°.lð—@ b°½@l b°³dkð²/¿AÒlð“j»A…nÿÿ»AÓ½Jnÿñ²¿@Òlð“j¹@…nÿÿ¹@Óºn€Iñ£n€¸lAñ³RSið²BHjð²(Ijð²1Jn€åjðhð°%lð—@ b°¥@l b°›Inÿÿð—Jn€åjð–@l2 ¿J¹jºAlÙb€Alñ²1Sið²InåHjð£n€jð¦@l2 ¿IáJãä¹JlÿåáºAlÙb€Adjñ²>Sið²In@åjð•Hjðhð‚Hjð–@l2 ¿Jdn€åjð“¿Iàˆn€æºIàkä¹JàºkÙ°ÁHInÿåädJõ(446Q \LISPERROR 357Q \LISPERROR 302Q \LISPERROR 252Q \LISPERROR 240Q \FIXP.FROM.FLOATP 100Q \LISPERROR 55Q \LISPERROR 20Q RSH) NIL ( 61Q -20000000000Q 50Q -20000000000Q) RSH D1 (L (1 N 0 X)) ÄjAñ—@jAÙ @dlð™¿@È¸@È°dkð²&¿@Òlð“j¸@…nÿÿ¸@Ó¹Adlñ²%¿Hnÿñ²mÿlð—@ b°½@l b°³jlñ²HYnÿñ“nÿÿ€j¸AlÙb€Alñ²IãHlÿåáØ¹HãHnÿñ“nÿ€jØ¸AlÙ€Adjñ²IâHkåjð‘j‚n€Ø¹HâHn€åØ¸kÙ°áHIõ(132Q \LISPERROR 120Q \FIXP.FROM.FLOATP 12Q LSH) NIL () MINUSP D1 (L (0 X)) @–o@òj@ñNIL NIL ( 7 0.0) ILESSP D1 (L (1 Y 0 X)) A@ñNIL NIL () IMINUS D1 (L (0 X)) j@ÙNIL NIL () IPLUS D1 (L (0 N)) 8eHdlð”¿@AØkð“@jØHjð‘j@ABØØlJHñªIJaØ¹JkØZ°ôINIL NIL () ITIMES D1 (L (0 N)) 8eHdlð”¿@AÚkð“@jØHjð‘k@ABÚÚlJHñªIJaÚ¹JkØZ°ôINIL NIL () LOGAND D1 (L (0 N)) 9eHdlð”¿@Aåkð“@jØHjð’mÿ@ABåålJHñªIJaå¹JkØZ°ôINIL NIL () LOGOR D1 (L (0 N)) 8eHdlð”¿@Aäkð“@jØHjð‘j@ABäälJHñªIJaä¹JkØZ°ôINIL NIL () LOGXOR D1 (L (0 N)) 8eHdlð”¿@Aækð“@jØHjð‘j@ABæælJHñªIJaæ¹JkØZ°ôINIL NIL () SUB1 D1 (L (0 X)) @kÙNIL NIL () ZEROP D1 (L (0 X)) @jðNIL NIL () ADD1 D1 (L (0 X)) @kØNIL NIL () GCD D1 (L (1 N2 0 N1)) $Ajð‘@jAóœA @b¿b¿°ëA@AÜb¿b¿°ß(15Q MINUS) NIL () IEQP D1 (L (1 Y 0 X)) @AÙjðNIL NIL () INTEGERLENGTH D1 (L (0 X)) @dkð¢±¨¿j@ñ–@ b¿o@ñ¢±Žn@ñ²Cl@ñ²"l@ñŸl@ñ—@jð‘jkll@ñ’lll@@ñšl @ñ’lll€@ñ’lln@ñ² n@ñ›n@ñ’l l n@ñ’lln@@ñ›n @ñ’l ln€@ñ’lllð²Z@ÈHdnÿñ²8¿@È¹Hn€ð—Idjð“l IjðŸHdjð³¿nÿÿHÙkØXŒnÿÿHÙ¸nÿÿIÙkØ¿Hjð˜@Èb±ÿH lØ@jØb±þñ(406Q INTEGERLENGTH 254Q SHOULDNT 21Q MINUS) NIL ( 30Q 200000Q) ABS D1 (L (0 X)) .@dd¡š¿j@ñ“j@Ù@žo@ò²õo@é@l (53Q \LISPERROR) NIL ( 42Q 0.0 32Q 0.0) DIFFERENCE D1 (L (1 Y 0 X)) @dd¡¿Ad¡“@AÙ@AéNIL NIL () GREATERP D1 (L (1 Y 0 X)) @dd¡¿Ad¡“@Añ@AòNIL NIL () PLUS D1 (L (0 N)) 5ejIHð³'IkØYad¡›JdµjIaØ‰JµoIaèº°ØJNIL NIL ( 53Q 0.0) QUOTIENT D1 (L (1 Y 0 X)) @dd¡¿Ad¡“@AÛ@AëNIL NIL () REMAINDER D1 (L (1 Y 0 X)) @dd¡¿Ad¡“@AÜ@A (32Q FREMAINDER) NIL () LESSP D1 (L (1 Y 0 X)) Add¡¿@d¡“A@ñA@òNIL NIL () MINUS D1 (L (0 X)) @d¡“j@Ùo@éNIL NIL ( 17Q 0.0) TIMES D1 (L (0 N)) 5ejIHð³'IkØYad¡›JdµkIaÚ‰JµoIaêº°ØJNIL NIL ( 53Q 1.0) FMINUS D1 (L (0 X)) o@éNIL NIL ( 3 0.0) FREMAINDER D1 (L (1 Y 0 X)) @dAëjØAêéNIL NIL () RANDSET D1 (L (0 X)) ú@@µ±¶ið™¹Z°`@dd¡Ÿdd¡–¹@Z°E l7ð²5@‰dd¡•µõi¿h² 0@°djØ¼MµLh^L&½µîN°?o@ ¿0o°(d»Inÿÿå¹KInMÚIØnÿÿåJ¹Zæ¼MµLh^L&½µÙNX H¿Hdl ¿l7`kC MµO_¿NLñ³öO_¿OµOh__¿M½NkØ¾°×O&_¿°ñ(266Q FNTH 254Q LAST 163Q ERROR 63Q LENGTH 22Q IDATE 16Q CLOCK) (300Q RANDSTATE 272Q RANDSTATE) ( 173Q (150177Q 134506Q 2372Q 154626Q 170230Q 66113Q 25744Q 40670Q 105776Q 171521Q 26405Q 111676Q 103564Q 151Q 162576Q 66157Q 23404Q 10171Q 157167Q 73124Q 57746Q 2565Q 152474Q 151770Q 124444Q 7426Q 114136Q 26172Q 146043Q 2037Q 1673Q 37700Q 46706Q 162146Q 6277Q 176221Q 3250Q 41735Q 156764Q 41547Q 144665Q 135532Q 63240Q 10560Q 5504Q 145075Q 114776Q 176503Q 160605Q 104147Q 12303Q 27516Q 35414Q 23625Q 25100Q) 157Q "ARG NOT PREVIOUS VALUE OF RANDSET") RAND D1 (L (1 UPPER 0 LOWER)) ± `µ i ¿`¸`¹`HI¿HdIÙnÿÿåA³'@µ`d¡—`@Ü@`oëê@d¡²BAdd¡²9d@ñ¥¿@Ab¿@Ùbdnÿÿñ²``õAkØ @Ø`AkØÜ@ØA@é`oëê@è(217Q IMOD 14Q RANDSET) (244Q RANDSTATE 225Q RANDSTATE 205Q RANDSTATE 200Q RANDSTATE 114Q RANDSTATE 103Q RANDSTATE 66Q RANDSTATE 34Q RANDSTATE 26Q RANDSTATE 20Q RANDSTATE 5 RANDSTATE) ( 252Q 65536.0 122Q 65536.0) EXPT D1 (L (1 N 0 A)) ›Ad¡²@d¡²9Ajñ«Ajð‘k@A @jð‘jkAdkåjð¥¿@HÖ¸Aâbjð‘H@dÖb¿°åo@b Ajð”ooojAñ²o@ëb¿jAÙb†@dÖb¿Akåjð£@HÖ¸Aâbjð²êH(125Q FEQP 40Q FEXPT) (120Q FLOATP) ( 164Q 1.0 150Q 1.0 143Q 0.0 136Q 1.0 114Q 0.0) PutUnboxed D1 (L (1 NUM 0 PTR)) @A (4 \PUTFIXP) NIL () \PUTFIXP D1 (L (1 NUM 0 PTR)) L Adlð™¿AÈ¸AÈ°dkð²¿AÒlð“j¸A…nÿÿ¸AÓ¹@HÍ@IÍAlð—A b°ÅAl b°»(106Q \LISPERROR 74Q \FIXP.FROM.FLOATP) NIL () \PUTSWAPPEDFIXP D1 (L (1 NUM 0 PTR)) L Adlð™¿AÈ¸AÈ°dkð²¿AÒlð“j¸A…nÿÿ¸AÓ¹@HÍ@IÍAlð—A b°ÅAl b°»(106Q \LISPERROR 74Q \FIXP.FROM.FLOATP) NIL () \HINUM D1 (L (0 NUM)) <@dlð”¿@Èdkð²¿@Òlð‘jnÿÿ¸@ÓHlð—@ b°Õ@l b°Ë(66Q \LISPERROR 54Q \FIXP.FROM.FLOATP) NIL () \LONUM D1 (L (0 NUM)) 3@dlð”¿@Èdkð›¿@dÒlð‘@Ólð—@ b°Û@l b°Ñ(55Q \LISPERROR 43Q \FIXP.FROM.FLOATP) NIL () TRUNCATEMULTIPLY D1 (L (1 Y 0 X)) #Adjð‘jkåkð™@dàAâ Ø@àAâb¿b¿°à(23Q TRUNCATEMULTIPLY) NIL () (PRETTYCOMPRINT LLARITHCOMS) (RPAQQ LLARITHCOMS ((LOCALVARS . T) (COMS (* "OPCODES") (FNS IDIFFERENCE IGREATERP IQUOTIENT) (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 0 )) (E (RESETSAVE (RADIX 8))) (CONSTANTS (MAX.SMALLP 65535) (MIN.SMALLP -65536) (MAX.FIXP 2147483647) ( MIN.FIXP -2147483648) (\SIGNBIT 32768)) (COMS (* "For Compatibility. Someday these two names should be flushed -- JonL 7/25/83") (CONSTANTS ( MAX.INTEGER 2147483647) (MIN.INTEGER -2147483648))) (EXPORT (DECLARE: DONTCOPY (RECORDS FIXP) ( CONSTANTS (MAX.SMALL.INTEGER 65535) (MAX.POS.HINUM 32767)) (MACROS .UNBOX. .NEGATE. .LLSH1. .LRSH1. .BOXIPLUS.))) (FNS EQP FIX IQUOTIENT IREMAINDER LLSH LRSH LSH RSH) (DECLARE: EVAL@COMPILE DONTCOPY ( MACROS NBITS.OR.LESS .SUBSMALL. \IQUOTREM)) (* "Machine independent arithmetic functions") (FNS MINUSP ILESSP IMINUS IPLUS ITIMES LOGAND LOGOR LOGXOR SUB1 ZEROP ADD1 GCD IEQP INTEGERLENGTH) (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.999992E-6))) (GLOBALVARS RANDSTATE \TOL) (COMS (FNS PutUnboxed \PUTFIXP \PUTSWAPPEDFIXP \HINUM \LONUM TRUNCATEMULTIPLY) (EXPORT ( DECLARE: DONTCOPY (MACROS PutUnboxed)))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TIMES PLUS LOGXOR LOGOR LOGAND ITIMES IPLUS))))) (RPAQ? \OVERFLOW 0) (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 MAX.INTEGER 2147483647) (RPAQQ MIN.INTEGER -2147483648) (CONSTANTS (MAX.INTEGER 2147483647) (MIN.INTEGER -2147483648)) (RPAQQ RANDSTATE NIL) (RPAQQ \TOL 9.999992E-6) (PUTPROPS LLARITH COPYRIGHT ("Xerox Corporation" T 1982 1983 1984)) NIL