(FILECREATED " 6-Apr-86 13:27:40" ("compiled on " {ERIS}WORK>MICROTEST>TAMUTEST.;18) "27-Mar-86 16:20:15" tcompl'd in "Xerox Lisp 27-Mar-86 ..." dated "27-Mar-86 16:42:46") (FILECREATED " 6-Apr-86 13:15:43" {ERIS}WORK>MICROTEST>TAMUTEST.;18 41134 changes to: (FNS BIND.UNBIND.TEST RUN.TEST SETP.TEST PVAR_.SETQ PVAR.SETUP FVAR.GLOBAL FVAR.FREE FVAR.TEST FVAR.TEST2 FVAR.TEST3 FVAR.TESTN UNBIND.TEST DUNBIND.TEST APPLYFN.TEST BASICDIAGNOSTICS.TEST) (VARS TAMUTESTCOMS) previous date: " 2-Apr-86 17:08:37" {ERIS}WORK>MICROTEST>TAMUTEST.;10) RUN.TEST D1 NIL ÿ§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿§o ¿µ o (373Q RAID 362Q GLOBALVAL.TEST 356Q RAID 346Q LLSH.TEST 342Q RAID 332Q LRSH.TEST 326Q RAID 316Q IGREATERP.TEST 312Q RAID 302Q LOGXOR.TEST 276Q RAID 266Q LOGAND.TEST 262Q RAID 252Q LOGOR.TEST 246Q RAID 236Q IPLUS.TEST 232Q RAID 222Q SIC.TEST 216Q RAID 206Q SETP.TEST 202Q RAID 172Q SETI.TEST 166Q RAID 156Q FCOPY.TEST 152Q RAID 142Q DUNBIND.TEST 136Q RAID 126Q UNBIND.TEST 122Q RAID 112Q FVAR.GLOBAL 106Q RAID 76Q PVAR.SETUP 72Q RAID 62Q PVAR_.SETQ 56Q RAID 46Q BIND.UNBIND.TEST2 42Q RAID 32Q BIND.UNBIND.TEST 26Q RAID 16Q CALLS.FIRSTARGTEST 12Q RAID 2 BASICDIAGNOSTICS.TEST) NIL ( 370Q (GLOBALVAL.TEST) 353Q (LLSH.TEST) 337Q (LRSH.TEST) 323Q (IGREATERP.TEST) 307Q (LOGXOR.TEST) 273Q (LOGAND.TEST) 257Q (LOGOR.TEST) 243Q (IPLUS.TEST) 227Q (SIC.TEST) 213Q (SETP.TEST) 177Q (SETI.TEST) 163Q (FCOPY.TEST) 147Q (DUNBIND.TEST) 133Q (UNBIND.TEST) 117Q (FVAR.GLOBAL) 103Q (PVAR.SETUP) 67Q (PVAR_.SETQ) 53Q (BIND.UNBIND.TEST2) 37Q (BIND.UNBIND.TEST) 23Q (CALLS.FIRSTARGTEST) 7 (BASICDIAGNOSTICS.TEST)) DIAGNOSE.TEST.0 D1 (P 0 PV I 0 ARG) Ÿo¿hijklmÿoog@hiðþhðoookk k l l kåläkÙkØkñj´h´h”°j¤°j™hµjµ†i“€hl{`Hþ¿h¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿þ(163Q RAID 155Q RAID 140Q RAID 131Q RAID 124Q RAID 100Q MT.LRSH 73Q MT.LLSH 66Q MT.LRSH 62Q MT.LLSH) (200Q DIAGNOSE.TEST.0 175Q DIAGNOSE.TEST.0 172Q DIAGNOSE.TEST.0 27Q ATOM) ( 54Q (A B) 47Q (A) 42Q (A) 24Q -4000000000Q 20Q 3777777777Q 3 (GLOBALVARS DIAGNOSE.TEST.0)) DIAGNOSE.TEST.1 D1 (P 0 PV I 0 ARG) ào¿n;h¿n;ðµ o nÐi¿nÐðµ o nÊj¿nÊðµ o n„4k¿n„4ðµ o n71l¿n71ðµ o nÊ:mÿ¿nÊ:ðµ o nš.nš.ðµ o ní/ní/ðµ o nõVg¿nõVðµ o nü¡nü¡ðµ o n™ hiðþ¿h¿n™ ðµ o nG“o¿nG“ðµ o nãÍo¿nãÍðµ o nÇïo¿nÇïðµ o nwkk k l l kåläkÙkØ¿k¿nwðµ o nÜdj•h“¿nÜdðµ o nÇùh•¿°j¥¿°j˜h¥j£¿†i”¿þnÇùðµ o nŠfl{¿nŠfðµ o nÀ`¿nÀðµ o nKÈHþ¿nKÈðµ o ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿þ(711Q RAID 662Q RAID 633Q RAID 605Q RAID 566Q RAID 557Q RAID 543Q RAID 533Q RAID 523Q RAID 505Q RAID 473Q RAID 442Q MT.LRSH 435Q MT.LLSH 430Q MT.LRSH 424Q MT.LLSH 414Q RAID 367Q RAID 342Q RAID 315Q RAID 266Q RAID 246Q RAID 222Q RAID 202Q RAID 162Q RAID 137Q RAID 114Q RAID 72Q RAID 50Q RAID 26Q RAID) (644Q DIAGNOSE.TEST.1 641Q DIAGNOSE.TEST.1 615Q DIAGNOSE.TEST.1 230Q ATOM) ( 706Q (push (PROG (PV) (NOP PV)) lost 45710Q) 657Q (push (SETQ DIAGNOSE.TEST.1 DIAGNOSE.TEST.1) lost 3700Q) 630Q (push (SETQ DIAGNOSE.TEST.1 173Q) lost 105146Q) 602Q (push (COND (NIL (RAID)) ((NOT 0) (RAID)) (0 (OR NIL 0 (RAID))) (T (RAID))) lost 143771Q) 520Q (push (AND 0 NIL (RAID)) lost 156144Q) 470Q (push (IGREATERP (IPLUS (IDIFFERENCE (LOGOR (LOGAND (MT.LRSH (MT.LLSH (MT.LRSH (MT.LLSH 1 1) 1) 10Q) 10Q) 1) 2) 1) 1) 1) lost 73406Q) 411Q (push (CDR (QUOTE (A B))) lost 143757Q) 376Q (A B) 364Q (push (CDR (QUOTE (A))) lost 161715Q) 351Q (A) 337Q (push (CAR (QUOTE (A))) lost 43623Q) 324Q (A) 312Q (push (EQ (NOP (EQ NIL T)) NIL) lost 114411Q) 263Q (push ARG lost 176241Q) 243Q (push (QUOTE ATOM) lost 172526Q) 217Q (push TMINI lost 166457Q) 177Q (push TMAXI lost 115056Q) 157Q (push -1 lost 145072Q) 134Q (push 2 lost 33461Q) 111Q (push 1 lost 102064Q) 67Q (push 0 lost 17312Q) 45Q (push T lost 6320Q) 23Q (push NIL lost 77473Q) 3 (GLOBALVARS DIAGNOSE.TEST.1)) BASICDIAGNOSTICS.TEST D1 (P 0 N) 5h—o ¿j¤j ¿i¤i ¿l¥l ¿jHjðµ o (61Q RAID 37Q RAID 26Q RAID 17Q RAID 10Q RAID) NIL ( 56Q (PROG ((N 0)) (RETURN (EQ N 0))) 5 (NOT NIL)) PUSH.TEST D1 (P 10Q P8 P 7 P7 P 6 P6 P 5 P5 P 4 P4 P 3 P3 P 2 P2 P 1 P1 P 0 P0 I 10Q I8 I 7 I7 I 6 I6 I 5 I5 I 4 I4 I 3 I3 I 2 I2 I 1 I1 I 0 I0) o¿nŒwh¿nŒwð§o ¿n—i¿n—ð§o ¿n4Nj¿n4Nð§o ¿nt3k¿nt3ð§o ¿n5Òl¿n5Òð§o ¿n-g¿n-ð§o ¿nül?l@lAlAglAðµ o h(573Q RAID 347Q RAID 320Q RAID 271Q RAID 152Q RAID 32Q RAID) (556Q FN.ARGCOUNT 333Q FN.ARGCOUNT 305Q FN.ARGCOUNT 275Q STACKTESTING 255Q FN.LASTARG 156Q A 141Q A 135Q FN.FIRSTARG 36Q A 21Q A 15Q FN.FIRSTARG 10Q C 5 B 2 A) ( 570Q (EQ (SPREADAPPLY* (QUOTE FN.ARGCOUNT) 1 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q 20Q 21Q 22Q 23Q 24Q 25Q 26Q 27Q 30Q 31Q 32Q 33Q 34Q 35Q 36Q 37Q 40Q 41Q 42Q 43Q 44Q 45Q 46Q 47Q 50Q 51Q 52Q 53Q 54Q 55Q 56Q 57Q 60Q 61Q 62Q 63Q 64Q 65Q 66Q 67Q 70Q 71Q 72Q 73Q 74Q 75Q 76Q 77Q 100Q 101Q) 101Q) 344Q (EQ (SPREADAPPLY* (QUOTE FN.ARGCOUNT) 1 2 3) 3) 315Q (EQ (SPREADAPPLY* (QUOTE FN.ARGCOUNT)) 0) 266Q (EQ (SPREADAPPLY* (QUOTE FN.LASTARG) (QUOTE A) 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q 20Q 21Q 22Q 23Q 24Q 25Q 26Q 27Q 30Q 31Q 32Q 33Q 34Q 35Q 36Q) 17Q) 147Q (EQ (SPREADAPPLY* (QUOTE FN.FIRSTARG) (QUOTE A) 2 3 4 5 6 7 10Q 11Q 12Q 13Q 14Q 15Q 16Q 17Q 20Q 21Q 22Q 23Q 24Q 25Q 26Q 27Q 30Q 31Q 32Q 33Q 34Q 35Q 36Q) (QUOTE A)) 27Q (EQ (SPREADAPPLY* (QUOTE FN.FIRSTARG) (QUOTE A) (QUOTE B) (QUOTE C)) (QUOTE A))) FCOPY.TEST D1 (P 0 X) $nORi´i¸nORð§o ¿Hµ g (40Q RAID 26Q RAID) (35Q X) ( 23Q (push (SETQ X (AND T T)) lost 47522Q)) FJUMPX.TEST D1 NIL &hið …hhiððŠh¿hh¿hð‘°òhµ o (42Q RAID) NIL ( 37Q (PROG NIL (COND ((NOT (EQ NIL T)) (GO FAR))) NEAR (RETURN (EQ NIL (EQ NIL T))) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) (FN.LASTARG 1 2 3 4 5 6) FAR (COND ((EQ (PROGN NIL NIL) (PROGN NIL NIL)) (GO NEAR))))) SETI.TEST D1 (I 5 A6 I 4 A5 I 3 A4 I 2 A3 I 1 A2 I 0 A1) mkb¿lb¿lb¿lb¿lb¿lb ¿@kð§o ¿Alð§o ¿Blð§o ¿Clð§o ¿Dlð§o ¿Elð§o ¿i(150Q RAID 133Q RAID 116Q RAID 101Q RAID 64Q RAID 47Q RAID) NIL ( 145Q (EQ A6 6) 130Q (EQ A5 5) 113Q (EQ A4 4) 76Q (EQ A3 3) 61Q (EQ A2 2) 44Q (EQ A1 1)) SETP.TEST D1 (P 27Q F24 P 26Q F23 P 25Q F22 P 24Q F21 P 23Q F20 P 22Q F19 P 21Q F18 P 20Q F17 P 17Q F16 P 16Q F15 P 15Q F14 P 14Q F13 P 13Q F12 P 12Q F11 P 11Q F10 P 10Q F9 P 7 F8 P 6 F7 P 5 F6 P 4 F5 P 3 F4 P 2 F3 P 1 F2 P 0 F1) Ýðk¸l¹lºl»l¼l½l¾l_¿l _¿l _¿l_¿l_¿l _¿l_¿l_¿l_¿l_ ¿l_"¿l_$¿l_&¿l_(¿l_*¿l_,¿l_.¿Hkð§o ¿Llð§o ¿Mlð§o ¿Nlð§o ¿Olð§o ¿Olð§o ¿Olð§o ¿O.lðµ o (331Q RAID 312Q RAID 274Q RAID 256Q RAID 240Q RAID 223Q RAID 206Q RAID 171Q RAID) NIL ( 326Q (EQ F24 30Q) 307Q (EQ F16 20Q) 271Q (EQ F15 17Q) 253Q (EQ F8 10Q) 235Q (EQ F7 7) 220Q (EQ F6 6) 203Q (EQ F5 5) 166Q (EQ F1 1)) SIC.TEST D1 NIL klÿØnðµ o (20Q RAID) NIL ( 15Q (EQ (IPLUS 1 377Q) 400Q)) IPLUS.TEST D1 NIL ŒnÿÿnÿÿÙjð§o ¿kkÙjð§o ¿okÙoð§o ¿okÙoð§o ¿jjØjð§o ¿jkØkð§o ¿joØoð§o ¿joØoð§o ¿kkÙjð§o ¿kjØkð§o ¿kkØlð§o ¿koØoð§o ¿okÙoð§o ¿ojØoð§o ¿okØoð§o ¿ooÙjð§o ¿okÙoð§o ¿ojØoð§o ¿ooØjð§o ¿ooØjð§o ¿mÿkØjð§o ¿kmÿØjðµ o (610Q RAID 570Q RAID 551Q RAID 525Q RAID 501Q RAID 455Q RAID 431Q RAID 405Q RAID 361Q RAID 335Q RAID 311Q RAID 265Q RAID 246Q RAID 230Q RAID 212Q RAID 166Q RAID 142Q RAID 124Q RAID 106Q RAID 62Q RAID 36Q RAID 20Q RAID) NIL ( 605Q (EQ (IPLUS 1 -1) 0) 565Q (EQ (IPLUS -1 1) 0) 546Q (EQ (IPLUS TMAXI.1 TMINI.2) 0) 536Q -3777777776Q 532Q 3777777776Q 522Q (EQ (IPLUS TMINI.2 TMAXI.1) 0) 512Q 3777777776Q 506Q -3777777776Q 476Q (EQ (IPLUS TMAXI 0) TMAXI) 470Q 3777777777Q 462Q 3777777777Q 452Q (EQ (IDIFFERENCE TMAXI 1) TMAXI.1) 444Q 3777777776Q 436Q 3777777777Q 426Q (EQ (IDIFFERENCE TMAXI TMAXI) 0) 416Q 3777777777Q 412Q 3777777777Q 402Q (EQ (IPLUS TMAXI.1 1) TMAXI) 374Q 3777777777Q 366Q 3777777776Q 356Q (EQ (IPLUS TMAXI.1 0) TMAXI.1) 350Q 3777777776Q 342Q 3777777776Q 332Q (EQ (IDIFFERENCE TMAXI.1 1) TMAXI.2) 324Q 3777777775Q 316Q 3777777776Q 306Q (EQ (IPLUS 1 TMAXI.1) TMAXI) 300Q 3777777777Q 273Q 3777777776Q 262Q (EQ (IPLUS 1 1) 2) 243Q (EQ (IPLUS 1 0) 1) 225Q (EQ (IDIFFERENCE 1 1) 0) 207Q (EQ (IPLUS 0 TMAXI) TMAXI) 201Q 3777777777Q 174Q 3777777777Q 163Q (EQ (IPLUS 0 TMAXI.1) TMAXI.1) 155Q 3777777776Q 150Q 3777777776Q 137Q (EQ (IPLUS 0 1) 1) 121Q (EQ (IPLUS 0 0) 0) 103Q (EQ (IDIFFERENCE TMAXI 1) TMAXI.1) 75Q 3777777776Q 67Q 3777777777Q 57Q (EQ (IDIFFERENCE TMAXI.1 1) TMAXI.2) 51Q 3777777775Q 43Q 3777777776Q 33Q (EQ (IDIFFERENCE 1 1) 0) 15Q (EQ (IDIFFERENCE 177777Q 177777Q) 0)) LOGOR.TEST D1 NIL 7jjäjð§o ¿jkäkð§o ¿joäoð§o ¿joäoð§o ¿kjäkð§o ¿kkäkð§o ¿koäoð§o ¿koäoð§o ¿ojäoð§o ¿okäoð§o ¿ooäoð§o ¿ooäoð§o ¿ojäoð§o ¿okäoð§o ¿ooäoð§o ¿ooäoðµ o (463Q RAID 433Q RAID 404Q RAID 360Q RAID 334Q RAID 305Q RAID 256Q RAID 232Q RAID 206Q RAID 162Q RAID 136Q RAID 120Q RAID 102Q RAID 56Q RAID 32Q RAID 14Q RAID) NIL ( 460Q (EQ (LOGOR TMAXI TMAXI) TMAXI) 451Q 3777777777Q 444Q 3777777777Q 440Q 3777777777Q 430Q (EQ (LOGOR TMAXI TMAXI.1) TMAXI) 422Q 3777777777Q 415Q 3777777776Q 411Q 3777777777Q 401Q (EQ (LOGOR TMAXI 1) TMAXI) 373Q 3777777777Q 365Q 3777777777Q 355Q (EQ (LOGOR TMAXI 0) TMAXI) 347Q 3777777777Q 341Q 3777777777Q 331Q (EQ (LOGOR TMAXI.1 TMAXI) TMAXI) 323Q 3777777777Q 316Q 3777777777Q 312Q 3777777776Q 302Q (EQ (LOGOR TMAXI.1 TMAXI.1) TMAXI.1) 274Q 3777777776Q 267Q 3777777776Q 263Q 3777777776Q 253Q (EQ (LOGOR TMAXI.1 1) TMAXI) 245Q 3777777777Q 237Q 3777777776Q 227Q (EQ (LOGOR TMAXI.1 0) TMAXI.1) 221Q 3777777776Q 213Q 3777777776Q 203Q (EQ (LOGOR 1 TMAXI) TMAXI) 175Q 3777777777Q 170Q 3777777777Q 157Q (EQ (LOGOR 1 TMAXI.1) TMAXI) 151Q 3777777777Q 144Q 3777777776Q 133Q (EQ (LOGOR 1 1) 1) 115Q (EQ (LOGOR 1 0) 1) 77Q (EQ (LOGOR 0 TMAXI) TMAXI) 71Q 3777777777Q 64Q 3777777777Q 53Q (EQ (LOGOR 0 TMAXI.1) TMAXI.1) 45Q 3777777776Q 40Q 3777777776Q 27Q (EQ (LOGOR 0 1) 1) 11Q (EQ (LOGOR 0 0) 0)) LOGAND.TEST D1 NIL jjåjð§o ¿jkåjð§o ¿joåjð§o ¿joåjð§o ¿kjåjð§o ¿kkåkð§o ¿koåjð§o ¿koåkð§o ¿ojåjð§o ¿okåjð§o ¿ooåoð§o ¿ooåoð§o ¿ojåjð§o ¿okåkð§o ¿ooåoð§o ¿ooåoðµ o (433Q RAID 403Q RAID 354Q RAID 333Q RAID 312Q RAID 263Q RAID 234Q RAID 213Q RAID 172Q RAID 151Q RAID 130Q RAID 112Q RAID 74Q RAID 53Q RAID 32Q RAID 14Q RAID) NIL ( 430Q (EQ (LOGAND TMAXI TMAXI) TMAXI) 421Q 3777777777Q 414Q 3777777777Q 410Q 3777777777Q 400Q (EQ (LOGAND TMAXI TMAXI.1) TMAXI.1) 372Q 3777777776Q 365Q 3777777776Q 361Q 3777777777Q 351Q (EQ (LOGAND TMAXI 1) 1) 340Q 3777777777Q 330Q (EQ (LOGAND TMAXI 0) 0) 317Q 3777777777Q 307Q (EQ (LOGAND TMAXI.1 TMAXI) TMAXI.1) 301Q 3777777776Q 274Q 3777777777Q 270Q 3777777776Q 260Q (EQ (LOGAND TMAXI.1 TMAXI.1) TMAXI.1) 252Q 3777777776Q 245Q 3777777776Q 241Q 3777777776Q 231Q (EQ (LOGAND TMAXI.1 1) 0) 220Q 3777777776Q 210Q (EQ (LOGAND TMAXI.1 0) 0) 177Q 3777777776Q 167Q (EQ (LOGAND 1 TMAXI) 1) 157Q 3777777777Q 146Q (EQ (LOGAND 1 TMAXI.1) 0) 136Q 3777777776Q 125Q (EQ (LOGAND 1 1) 1) 107Q (EQ (LOGAND 1 0) 0) 71Q (EQ (LOGAND 0 TMAXI) 0) 61Q 3777777777Q 50Q (EQ (LOGAND 0 TMAXI.1) 0) 40Q 3777777776Q 27Q (EQ (LOGAND 0 1) 0) 11Q (EQ (LOGAND 0 0) 0)) LOGXOR.TEST D1 NIL +jjæjð§o ¿jkækð§o ¿joæoð§o ¿joæoð§o ¿kjækð§o ¿kkæjð§o ¿koæoð§o ¿koæoð§o ¿ojæoð§o ¿okæoð§o ¿ooæjð§o ¿ooækð§o ¿ojæoð§o ¿okæoð§o ¿ooækð§o ¿ooæjðµ o (447Q RAID 422Q RAID 376Q RAID 352Q RAID 326Q RAID 302Q RAID 256Q RAID 232Q RAID 206Q RAID 162Q RAID 136Q RAID 120Q RAID 102Q RAID 56Q RAID 32Q RAID 14Q RAID) NIL ( 444Q (EQ (LOGXOR TMAXI TMAXI) 0) 433Q 3777777777Q 427Q 3777777777Q 417Q (EQ (LOGXOR TMAXI TMAXI.1) 1) 407Q 3777777776Q 403Q 3777777777Q 373Q (EQ (LOGXOR TMAXI 1) TMAXI.1) 365Q 3777777776Q 357Q 3777777777Q 347Q (EQ (LOGXOR TMAXI 0) TMAXI) 341Q 3777777777Q 333Q 3777777777Q 323Q (EQ (LOGXOR TMAXI.1 TMAXI) 1) 313Q 3777777777Q 307Q 3777777776Q 277Q (EQ (LOGXOR TMAXI.1 TMAXI.1) 0) 267Q 3777777776Q 263Q 3777777776Q 253Q (EQ (LOGXOR TMAXI.1 1) TMAXI) 245Q 3777777777Q 237Q 3777777776Q 227Q (EQ (LOGXOR TMAXI.1 0) TMAXI.1) 221Q 3777777776Q 213Q 3777777776Q 203Q (EQ (LOGXOR 1 TMAXI) TMAXI.1) 175Q 3777777776Q 170Q 3777777777Q 157Q (EQ (LOGXOR 1 TMAXI.1) TMAXI) 151Q 3777777777Q 144Q 3777777776Q 133Q (EQ (LOGXOR 1 1) 0) 115Q (EQ (LOGXOR 1 0) 1) 77Q (EQ (LOGXOR 0 TMAXI) TMAXI) 71Q 3777777777Q 64Q 3777777777Q 53Q (EQ (LOGXOR 0 TMAXI.1) TMAXI.1) 45Q 3777777776Q 40Q 3777777776Q 27Q (EQ (LOGXOR 0 1) 1) 11Q (EQ (LOGXOR 0 0) 0)) IGREATERP.TEST D1 NIL õjjñ—o ¿jkñ—o ¿joñ—o ¿joñ—o ¿kjñ§o ¿kkñ—o ¿koñ—o ¿koñ—o ¿ojñ§o ¿okñ§o ¿ooñ—o ¿ooñ—o ¿ojñ§o ¿okñ§o ¿ooñ§o ¿ooñhðµ o (361Q RAID 334Q RAID 312Q RAID 273Q RAID 254Q RAID 232Q RAID 210Q RAID 171Q RAID 152Q RAID 133Q RAID 114Q RAID 100Q RAID 64Q RAID 45Q RAID 26Q RAID 12Q RAID) NIL ( 356Q (NOT (IGREATERP TMAXI TMAXI)) 345Q 3777777777Q 341Q 3777777777Q 331Q (IGREATERP TMAXI TMAXI.1) 323Q 3777777776Q 317Q 3777777777Q 307Q (IGREATERP TMAXI 1) 300Q 3777777777Q 270Q (IGREATERP TMAXI 0) 261Q 3777777777Q 251Q (NOT (IGREATERP TMAXI.1 TMAXI)) 243Q 3777777777Q 237Q 3777777776Q 227Q (NOT (IGREATERP TMAXI.1 TMAXI.1)) 221Q 3777777776Q 215Q 3777777776Q 205Q (IGREATERP TMAXI.1 1) 176Q 3777777776Q 166Q (IGREATERP TMAXI.1 0) 157Q 3777777776Q 147Q (NOT (IGREATERP 1 TMAXI)) 141Q 3777777777Q 130Q (NOT (IGREATERP 1 TMAXI.1)) 122Q 3777777776Q 111Q (NOT (IGREATERP 1 1)) 75Q (IGREATERP 1 0) 61Q (NOT (IGREATERP 0 TMAXI)) 53Q 3777777777Q 42Q (NOT (IGREATERP 0 TMAXI.1)) 34Q 3777777776Q 23Q (NOT (IGREATERP 0 1)) 7 (NOT (IGREATERP 0 0))) LRSH.TEST D1 NIL Ejk jð§o ¿jl jð§o ¿kk jð§o ¿kl jð§o ¿nÿþk nÿð§o ¿nÿþl lÿð§o ¿nÿÿk nÿð§o ¿nÿÿl lÿð§o ¿ok oð§o ¿ol oð§o ¿ol nÿð§o ¿ol lð§o ¿ok oð§o ¿ol oð§o ¿ol nÿð§o ¿ol lðµ o (501Q RAID 465Q MT.LRSH 453Q RAID 437Q MT.LRSH 425Q RAID 410Q MT.LRSH 376Q RAID 361Q MT.LRSH 350Q RAID 335Q MT.LRSH 323Q RAID 307Q MT.LRSH 275Q RAID 260Q MT.LRSH 246Q RAID 231Q MT.LRSH 220Q RAID 205Q MT.LRSH 174Q RAID 160Q MT.LRSH 150Q RAID 135Q MT.LRSH 124Q RAID 110Q MT.LRSH 100Q RAID 66Q MT.LRSH 57Q RAID 45Q MT.LRSH 37Q RAID 25Q MT.LRSH 16Q RAID 4 MT.LRSH) NIL ( 476Q (EQ (MT.LRSH TMAXI 30Q) TMAXISH24) 460Q 3777777777Q 450Q (EQ (MT.LRSH TMAXI 20Q) TMAXISH16) 432Q 3777777777Q 422Q (EQ (MT.LRSH TMAXI 10Q) TMAXISH8) 414Q 7777777Q 403Q 3777777777Q 373Q (EQ (MT.LRSH TMAXI 1) TMAXISH1) 365Q 1777777777Q 355Q 3777777777Q 345Q (EQ (MT.LRSH TMAXI.1 30Q) TMAXISH24) 330Q 3777777776Q 320Q (EQ (MT.LRSH TMAXI.1 20Q) TMAXISH16) 302Q 3777777776Q 272Q (EQ (MT.LRSH TMAXI.1 10Q) TMAXISH8) 264Q 7777777Q 253Q 3777777776Q 243Q (EQ (MT.LRSH TMAXI.1 1) TMAXISH1) 235Q 1777777777Q 225Q 3777777776Q 215Q (EQ (MT.LRSH 177777Q 10Q) 377Q) 171Q (EQ (MT.LRSH 177777Q 1) 77777Q) 145Q (EQ (MT.LRSH 177776Q 10Q) 377Q) 121Q (EQ (MT.LRSH 177776Q 1) 77777Q) 75Q (EQ (MT.LRSH 1 10Q) 0) 54Q (EQ (MT.LRSH 1 1) 0) 34Q (EQ (MT.LRSH 0 10Q) 0) 13Q (EQ (MT.LRSH 0 1) 0)) LLSH.TEST D1 NIL ™jk jð§o ¿jl jð§o ¿kk lð§o ¿kl nð§o ¿lÿk nþð§o ¿lÿl nÿð§o ¿lÿl oð§o ¿ll oðµ o (225Q RAID 207Q MT.LLSH 177Q RAID 162Q MT.LLSH 152Q RAID 136Q MT.LLSH 126Q RAID 112Q MT.LLSH 103Q RAID 67Q MT.LLSH 60Q RAID 45Q MT.LLSH 37Q RAID 25Q MT.LLSH 16Q RAID 4 MT.LLSH) NIL ( 222Q (EQ (MT.LLSH 37Q 30Q) 3700000000Q) 213Q 3700000000Q 174Q (EQ (MT.LLSH 377Q 20Q) 77600000Q) 166Q 77600000Q 147Q (EQ (MT.LLSH 377Q 10Q) 177400Q) 123Q (EQ (MT.LLSH 377Q 1) 776Q) 100Q (EQ (MT.LLSH 1 10Q) 400Q) 55Q (EQ (MT.LLSH 1 1) 2) 34Q (EQ (MT.LLSH 0 10Q) 0) 13Q (EQ (MT.LLSH 0 1) 0)) GLOBALVAL.TEST D1 NIL l{¿`l{ðµ o (24Q RAID) (10Q GVAR 4 GVAR) ( 21Q (EQ GVAR 173Q)) FN.FIRSTARG D1 (I 2 Z I 1 Y I 0 X) @NIL NIL () FN.FIRSTARG.PVARS D1 (P 2 Q P 1 D P 0 P I 2 Z I 1 Y I 0 X) 0@NIL NIL () FN.FIRSTARG.FVARS D1 (I 2 Z I 1 Y I 0 X F 0 FREE.1 F 1 FREE.2 F 2 FREE.3) h‘Ph‘Qh‘Ri‘@hNIL NIL () FN.FIRSTARG.PVARS.FVARS D1 (P 2 Q P 1 D P 0 P I 2 Z I 1 Y I 0 X F 3 FREE.1 F 4 FREE.2 F 5 FREE.3) 0H‘SH‘TH‘Ui‘@hNIL NIL () FN.LASTARG D1 (I 16Q A15 I 15Q A14 I 14Q A13 I 13Q A12 I 12Q A11 I 11Q A10 I 10Q A9 I 7 A8 I 6 A7 I 5 A6 I 4 A5 I 3 A4 I 2 A3 I 1 A2 I 0 A1) GNIL NIL () FN.LASTARG.PVARS D1 (P 2 P3 P 1 P2 P 0 P1 I 16Q A15 I 15Q A14 I 14Q A13 I 13Q A12 I 12Q A11 I 11Q A10 I 10Q A9 I 7 A8 I 6 A7 I 5 A6 I 4 A5 I 3 A4 I 2 A3 I 1 A2 I 0 A1) 0GNIL NIL () FN.LASTARG.FVARS D1 (I 16Q A15 I 15Q A14 I 14Q A13 I 13Q A12 I 12Q A11 I 11Q A10 I 10Q A9 I 7 A8 I 6 A7 I 5 A6 I 4 A5 I 3 A4 I 2 A3 I 1 A2 I 0 A1 F 0 FVAR.1 F 1 FVAR.2 F 2 FVAR.3) h‘Ph‘Qh‘Ri’GhNIL NIL () FN.LASTARG.FVARS.PVARS D1 (P 2 P3 P 1 P2 P 0 P1 I 16Q A15 I 15Q A14 I 14Q A13 I 13Q A12 I 12Q A11 I 11Q A10 I 10Q A9 I 7 A8 I 6 A7 I 5 A6 I 4 A5 I 3 A4 I 2 A3 I 1 A2 I 0 A1 F 3 FVAR.1 F 4 FVAR.2 F 5 FVAR.3) 0h‘Sh‘Th‘Ui’GhNIL NIL () FN.ARGCOUNT D1 (P 0 N) eHNIL NIL () FVAR.TESTN D1 (I 2 FVAR3 I 1 FVAR2 I 0 FVAR1) i (3 FVAR.TEST) NIL () MT.LLSH D1 (I 1 N I 0 X) ,jAñ—@jAÙ i²Ao¿Hjñš@àb¹HkÙ¸°óIh(12Q LRSH) NIL ( 26Q (LOCALVARS RPTN RPTV)) MT.LRSH D1 (I 1 N I 0 X) ,jAñ—@jAÙ i²Ao¿Hjñš@âb¹HkÙ¸°óIh(12Q LLSH) NIL ( 26Q (LOCALVARS RPTN RPTV)) (PRETTYCOMPRINT TAMUTESTCOMS) (RPAQQ TAMUTESTCOMS ((COMS (GLOBALVARS GVAR STACKTESTING) (VARS (STACKTESTING)) (VARS (F0 0) (F1 1) ( F2 2) (F3 3) (F4 4) (F5 5) (F6 6) (F7 7) (F8 8) (G0 0) (G1 1) (G2 2) (G3 3) (G4 4) (G5 5) (G6 6) (G7 7 ) (G8 8)) (CONSTANTS (TMAXI 536870911) (TMAXI.1 536870910) (TMAXI.2 536870909) (TMAXISH1 268435455) ( TMAXISH8 2097151) (TMAXISH16 8191) (TMAXISH24 31) (TMINI -536870912) (TMINI.1 -536870911) (TMINI.2 -536870910))) (COMS (* runs all the tests that work) (FNS RUN.TEST)) (COMS (* the individual tests in MICROTEST-DIAGNOSTICS order -- those not otherwise commented here work and are in RUN.TEST) (FNS DIAGNOSE.TEST.0 DIAGNOSE.TEST.1 (* need CAR/CDR)) (FNS BASICDIAGNOSTICS.TEST) (FNS PUSH.TEST (* defer until (CHECKSTACK anyVar) doesn't optimize away the var ref)) (FNS JUMPX.TEST (* defer until compiler doesn't optimize away the non-executable calls to FN.LASTARG)) (FNS CALLS.FIRSTARGTEST) (FNS CALLS.LASTARGTEST CALLS.TOOFEWARGS CALLS.TOOMANYARGS (* have to handle >6 args 1st)) (FNS CALLS.COUNTTEST (* have to handle >6 args 1st -- have to handle lambda* first -- also note conditionality on STACKTESTING)) (FNS BIND.UNBIND.TEST BIND.UNBIND.TEST2) (FNS PVAR_.SETQ PVAR.SETUP FVAR.GLOBAL) (FNS FVAR.FREE FVAR.TEST FVAR.TEST2 FVAR.TEST3 (* defer till free var lookup)) (FNS CONST.TEST2 (* pull this ?? -- \ADDBASE to char consts)) (FNS CAR.CDR.TEST (* defer til we have CAR/CDR)) (FNS UNBIND.TEST DUNBIND.TEST) (FNS APPLYFN.TEST (* defer till APPLYFN)) (FNS FCOPY.TEST) ( FNS FJUMPX.TEST (* defer until compiler doesn't optimize away the non-executable calls to FN.LASTARG)) (FNS SETI.TEST SETP.TEST SIC.TEST IPLUS.TEST) (* (FNS IPLUS.N.TEST) skipped as irrelevant) (FNS LOGOR.TEST LOGAND.TEST LOGXOR.TEST IGREATERP.TEST LRSH.TEST LLSH.TEST) (* (FNS TYPE.TEST) don't have type-opcode design finalized yet) (* (FNS HILOC.TEST LOLOC.TEST) address arith) (* (FNS GETBITS.TEST PUTBITS.TEST.ZERO PUTBITS.TEST.ONES)) (* (FNS VAG2.TEST) address arith) (* (FNS ADDBASE.TEST) address arith) (FNS GLOBALVAL.TEST) (* (FNS CAR.UFN.TEST CDR.UFN.TEST LOGAND2.UFN.TEST LOGOR2.UFN.TEST BASE.UFN.TEST ARITH.UFN.TEST PUTBITS.UFN.TEST RPLAC.UFN.TEST IGREATERP.UFN.TEST LSH.UFN.TEST MISC.UFN.TEST) ufns) (* (FNS PUSHSTKOV.TEST CALL.TEST INTERP.TEST) ??)) (COMS (* helpers for the tests ) (FNS FN.FIRSTARG FN.FIRSTARG.PVARS FN.FIRSTARG.FVARS FN.FIRSTARG.PVARS.FVARS) (FNS FN.LASTARG FN.LASTARG.PVARS FN.LASTARG.FVARS FN.LASTARG.FVARS.PVARS) (FNS FN.ARGCOUNT) (FNS FVAR.TESTN)) (COMS (* utilities) (FNS MT.LLSH MT.LRSH)) (COMS (ADDVARS (OPTIMIZATIONSOFFFILES TAMUTEST)) (* tell DT's CO not to optimize fns on this file)) (DECLARE: EVAL@COMPILE DONTCOPY (P (RESETSAVE OPTIMIZATIONSOFF T)) (MACROS CHECKVAL CHECKSTACK CHECKPUSH FREEVARTEST) (PROP DOPVAL NOP .COPY.)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FN.ARGCOUNT))))) (RPAQQ STACKTESTING NIL) (RPAQQ F0 0) (RPAQQ F1 1) (RPAQQ F2 2) (RPAQQ F3 3) (RPAQQ F4 4) (RPAQQ F5 5) (RPAQQ F6 6) (RPAQQ F7 7) (RPAQQ F8 8) (RPAQQ G0 0) (RPAQQ G1 1) (RPAQQ G2 2) (RPAQQ G3 3) (RPAQQ G4 4) (RPAQQ G5 5) (RPAQQ G6 6) (RPAQQ G7 7) (RPAQQ G8 8) (RPAQQ TMAXI 536870911) (RPAQQ TMAXI.1 536870910) (RPAQQ TMAXI.2 536870909) (RPAQQ TMAXISH1 268435455) (RPAQQ TMAXISH8 2097151) (RPAQQ TMAXISH16 8191) (RPAQQ TMAXISH24 31) (RPAQQ TMINI -536870912) (RPAQQ TMINI.1 -536870911) (RPAQQ TMINI.2 -536870910) (CONSTANTS (TMAXI 536870911) (TMAXI.1 536870910) (TMAXI.2 536870909) (TMAXISH1 268435455) (TMAXISH8 2097151) (TMAXISH16 8191) (TMAXISH24 31) (TMINI -536870912) (TMINI.1 -536870911) (TMINI.2 -536870910)) (ADDTOVAR OPTIMIZATIONSOFFFILES TAMUTEST) (PUTPROPS TAMUTEST COPYRIGHT ("Xerox Corporation" 1986)) NIL