(FILECREATED "21-SEP-83 11:56:28" ("compiled on " {INDIGO}SOURCES>LTBASIC.;3) "10-SEP-83 14:41:27" tcompl'd in LOOPSDEMO.SYSOUT dated "13-SEP-83 08:14:58") (FILECREATED "21-SEP-83 11:55:43" {INDIGO}SOURCES>LTBASIC.;3 27917 changes to: (FNS TestLoadedInstances BasicTest CopyTester DoTest MakeTester SetupLoopsTest2 TestForever) previous date: "20-SEP-83 16:49:12" {IVY}LISP>LTBASIC.;51) BasicTest D1 (P 3 x P 2 LTInst2 P 1 OKList P 0 Temp F 4 TTY F 5 LTLOGFLAG F 6 LTError F 7 LTResult F 10Q LTInst) 60U g hc icdooo oooo oooo iooo iooo oooo oooo iooo iooo oooo oooo oooo oooo oT T I dKo KT T Uh W(461Q DRIBBLE 445Q TERPRI 440Q PRIN1 432Q EQUAL 413Q DREVERSE 407Q TERPRI 402Q PRIN1 372Q DoTest 347Q DoTest 324Q DoTest 301Q DoTest 256Q DoTest 236Q DoTest 216Q DoTest 173Q DoTest 150Q DoTest 130Q DoTest 110Q DoTest 65Q DoTest 42Q DoTest 13Q DRIBBLE) (10Q LTLOG1) (427Q "" 376Q "Following features tested OK" 367Q "Instances loaded properly" 363Q "Load instances from file" 357Q (AND (TestLoadedInstances ($ LD4)) (TestLoadedInstances ($ LD1))) 353Q (LTLoadFile (QUOTE LTLOAD)) 344Q "_Super: Invoked from Super class" 340Q "" 334Q (EQUAL (_ LTInst2 BasicSS1) 25Q) 330Q (SETQ LTInst2 (_ ($ LTClass3) New)) 321Q "_Super: Directly Invoked" 315Q "" 311Q (EQUAL (_ LTInst2 BasicSS1) 25Q) 305Q (SETQ LTInst2 (_ ($ LTClass2) New)) 276Q "Classes loaded properly" 272Q "Load classes from file" 266Q (AND (GetObjectRec (QUOTE LTClass1)) (GetObjectRec (QUOTE LTClass3)) (type? class ($ LTClass2)) (type? class ($ LTClass3))) 262Q (LTLoadFile (QUOTE LTBCLS)) 253Q "GetClassValue in class" 247Q "" 243Q (EQUAL (GetClassValue ($ LTClass) (QUOTE GCV1)) (QUOTE V1)) 233Q "GetValue from active value" 227Q "" 223Q (EQUAL (GetValue LTInst (QUOTE GV2)) (QUOTE V2)) 213Q "GetValue locally in instance" 207Q "PutValue in instance" 203Q (EQUAL (GetValue LTInst (QUOTE GV3)) (QUOTE Inst)) 177Q (PutValue LTInst (QUOTE GV3) (QUOTE Inst)) 170Q "PutValue in class" 164Q "PutValue in class" 160Q (EQUAL (GetValue ($ LTClass) (QUOTE PV1)) (QUOTE LTClass)) 154Q (PutValue ($ LTClass) (QUOTE PV1) (QUOTE LTClass)) 145Q "GetValue inherits in instance" 141Q "" 135Q (EQUAL (GetValue LTInst (QUOTE GV1)) (QUOTE V1)) 125Q "Checking Class of instance" 121Q "" 115Q (EQ (Class LTInst) ($ LTClass)) 105Q "CurrentEnvironment is Global(i.e. set to NIL)" 101Q "Making CurrentEnvironment be not current" 75Q (NULL CurrentEnvironment) 71Q (AND CurrentEnvironment (SEND CurrentEnvironment MakeNotCurrent)) 62Q "Creation of instance" 56Q "Sending message and using New method to create instance" 52Q (type? instance LTInst) 46Q (SETQ LTInst (SEND ($ LTClass) New)) 37Q "Get Value in class" 33Q "" 27Q (EQUAL (GetValue ($ LTClass) (QUOTE GV1)) (QUOTE V1))) CleanupTester D1 (P 3 x P 2 f F 6 NOTLISTEDFILES F 7 NOTCOMPILEDFILES F 10Q FILELST F 11Q CurrentEnvironment F 12Q TesterTempObjects F 13Q MainTesterFiles F 14Q TempTesterFiles) W8g Hg HkIgV c gW cgW W"Hg HkIdJW Wd W!d!K K ]g MkLi(203Q FetchMethodOrHelp 174Q GetObjectRec 166Q GetObjectRec 144Q DELFILE 127Q DREMOVE 103Q FetchMethodOrHelp 65Q DREMOVE 53Q DREMOVE 41Q DREMOVE 23Q FetchMethodOrHelp 11Q GetObjectRec) (200Q Destroy 100Q Cancel 60Q LTDUMP 46Q LTDUMP 35Q LTDUMP 20Q Close 6 KB) NIL CopyTester D1 (P 2 x P 1 to P 0 from I 1 FromDir I 0 ToDir F 3 TTY F 4 MainTesterFiles F 5 CompiledTesterFiles)  @gYAgXTdHJ IJ U$dHJo IJo oS lS TS lS oS HS lS oS IS S oS lS US lS oS HS lS oS IS S T(344Q TERPRI 337Q PRIN1 331Q PRIN1 320Q SPACES 311Q PRIN1 303Q PRIN1 272Q SPACES 263Q PRIN1 255Q SPACES 246Q PRIN1 236Q TERPRI 231Q PRIN1 223Q PRIN1 212Q SPACES 203Q PRIN1 175Q PRIN1 164Q SPACES 155Q PRIN1 147Q SPACES 140Q PRIN1 123Q COPYFILE 120Q MKATOM 115Q CONCAT 104Q MKATOM 101Q CONCAT 53Q COPYFILE 50Q MKATOM 45Q CONCAT 40Q MKATOM 35Q CONCAT) (17Q {IVY}LISP> 10Q {INDIGO}SOURCES>) (325Q "to: " 277Q "from: " 242Q "Copied compiled files" 217Q "to: " 171Q "from: " 134Q "Copied source files" 112Q ".DCOM" 76Q ".DCOM") DoTest D1 (P 0 Res I 3 Msg2 I 2 Msg1 I 1 Test I 0 Setup F 1 TTY F 2 OKList F 3 LTError F 4 LTResult) @i XdYicoQ lQ BQ Q oQ @Q ihdQ Q oQ lQ CQ Q hBRcAi Xd>icoQ lQ CQ Q oQ AQ ihdQ Q hEhcoQ lQ CQ Q oQ lQ AQ ihdQ Q hCRci(360Q TERPRI 353Q PRINTDEF 343Q POSITION 335Q SPACES 326Q PRIN1 315Q TERPRI 310Q PRIN1 302Q SPACES 273Q PRIN1 252Q TERPRI 245Q PRINTDEF 235Q POSITION 227Q PRIN1 216Q TERPRI 211Q PRIN1 203Q SPACES 174Q PRIN1 154Q ERRORSET 140Q TERPRI 133Q PRIN1 125Q SPACES 116Q PRIN1 105Q TERPRI 100Q PRINTDEF 70Q POSITION 62Q PRIN1 51Q TERPRI 44Q PRIN1 36Q SPACES 27Q PRIN1 7 ERRORSET) NIL (322Q "Code:" 267Q "Bug: in" 223Q "Code:" 170Q "Error in test" 112Q "Not testing" 56Q "Code:" 23Q "Error in setup") EditATest D1 NIL go gh h(31Q EVAL.IN.TTY.PROCESS 17Q GetObjectRec 14Q PromptRead 2 LoadLTIfNeeded) (22Q EditTEST 5 SEND) (11Q "ObjName:") FailedTestBrowser.LeftShiftSelect D1 (I 2 objName I 1 obj I 0 self) AHg HkI(12Q FetchMethodOrHelp) (7 ReTest) NIL InteractiveLoopsTest D1 (P 1 Res P 0 Seed I 0 DontAsk F 2 LTDontAsk F 3 LTBROWSER) 0 @Rlgoohdo YdS(54Q BeginLoopsTest 50Q BasicTest 42Q ASKUSER 5 SetUpTestBrowser) (20Q Y) (36Q (CONFIRMFLG NIL) 30Q ((Y "es " RETURN T) (N "o " RETURN NIL)) 24Q "Should I proceed with testing the system? ") LTCompInt D1 (P 0 res F 1 LTCompIntFlg) oooi dghic(22Q INTTY) (26Q Compiled) (16Q "C for compiled, I for interpreted versions" 12Q (Compiled Interpreted) 6 "Should I use compiled or interpreted versions of tester files?") LTLoadFile D1 (I 0 file F 0 LTCompIntFlg) P@@o (21Q LOAD 16Q MKATOM 13Q CONCAT) NIL (10Q ".DCOM") LoadLTIfNeeded D1 (F 0 LTLOADEDREST F 1 LTCompIntFlg) PQ h(5 LoadLTSystem) NIL NIL LoadLTSystem D1 (P 0 saveFlg I 0 compIntFlg F 1 LTCompIntFlg F 2 LTLOADEDREST) #QX@cg g g Hcich(31Q LTLoadFile 23Q LTLoadFile 15Q LTLoadFile) (26Q LTCASES 20Q LTDB 12Q LTKER) NIL LoadLTSystemCI D1 (F 0 LTCompIntFlg) P (3 LoadLTSystem) NIL NIL MakeTester D1 (P 2 x P 1 to P 0 from I 1 FromDir I 0 ToDir F 3 TTY F 4 MainTesterFiles F 5 CompiledTesterFiles)  @gYAgXTU dHJ IJ U dH J I Jo H oS lS TS lS oS HS lS oS IS S oS lS US lS oS HS lS oS IS S T(350Q TERPRI 343Q PRIN1 335Q PRIN1 324Q SPACES 315Q PRIN1 307Q PRIN1 276Q SPACES 267Q PRIN1 261Q SPACES 252Q PRIN1 242Q TERPRI 235Q PRIN1 227Q PRIN1 216Q SPACES 207Q PRIN1 201Q PRIN1 170Q SPACES 161Q PRIN1 153Q SPACES 144Q PRIN1 134Q CNDIR 123Q MAKEFILE 112Q CNDIR 105Q LOAD 100Q CNDIR 57Q COPYFILE 54Q MKATOM 51Q CONCAT 44Q MKATOM 41Q CONCAT 25Q LDIFFERENCE) (17Q {IVY}LISP> 10Q {INDIGO}SOURCES>) (331Q "to: " 303Q "from: " 246Q "Compiled files" 223Q "to: " 175Q "from: " 140Q "Made new source files" 120Q (C F)) MenuEval D1 (P 0 x I 0 Exps) @dHi o(13Q ERRORSET) NIL (24Q "") ResetLTBASICVARS D1 (F 0 LTABROWSER F 1 LTMBROWSER F 2 LTError F 3 LTResult F 4 LTBROWSER F 5 LTLOADEDREST F 6 LTMsgLev F 7 LTLOGFLAG F 10Q LTDontAsk F 11Q LTCompIntFlg F 12Q LTInitW) hccccc ichcdciclc hcNIL NIL NIL ResetFailedTestsA0971 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 x F 3 ResetLst) R Hg HSlIi(15Q FetchMethodOrHelp 3 GetObjectRec) (12Q Reset!) NIL ResetFailedTests D1 (P 1 x P 0 ResetLst F 2 LTABROWSER F 3 LTBROWSER F 4 NotDone F 5 LTLOADEDREST F 6 Failed) 8hhRcUdVT doi g g i(64Q LTLoadFile 56Q LTLoadFile 43Q ResetFailedTestsA0971 25Q \APPEND2 17Q InteractiveLoopsTest) (61Q LTCASES 53Q LTBCLS) (37Q (DUMMY.FOR.ERRORSET)) ResetLoopsTester D1 (P 6 x P 3 FB P 2 ResetLst P 1 CompIntFlg P 0 Imode F 7 LTABROWSER F 10Q LTMBROWSER F 11Q LTCompIntFlg F 12Q LTBROWSER F 13Q LTLOADEDREST F 14Q Tested) WWhhW$WcWW dN ]g MJlLg g IcicKcHWig Wcg hc(175Q SetUpTestBrowser 165Q CLOSEW 162Q GetValue 144Q TOTOPW 141Q GetValue 111Q ResetLTBASICVARS 106Q LTLoadFile 100Q LTLoadFile 55Q FetchMethodOrHelp 46Q GetObjectRec 33Q REVERSE 25Q SetUpTestBrowser) (157Q window 136Q window 103Q LTCASES 75Q LTBCLS 52Q ResetSelf) NIL SetUpTestBrowser D1 (F 0 LTBROWSER F 1 LTMBROWSER) g cc(14Q DisplayTestBrowser 5 GenerateTestList 2 LoadLTIfNeeded) (11Q TestBrowser) NIL SetUpLoopsTest D1 (P 2 INP2 P 1 INP P 0 Redo F 3 LTInitW) i!ooo ci(22Q TMenu) NIL (17Q (423Q 324Q 214Q 334Q) 13Q "LoopsTest Cmds" 7 (("Test Interactively" (QUOTE (InteractiveLoopsTest)) "test in a interactive mode" " ") ("Basic Tests" (QUOTE (PROGN (LOAD (QUOTE LTBCLS)) (BasicTest))) "run basic tests" " ") ("Rest of Tests" (QUOTE (PROGN (LoadLTIfNeeded) (BeginLoopsTest))) "run rest of the tests" " ") ("All Tests" (QUOTE (PROGN (BasicTest) (LoadLTIfNeeded) (BeginLoopsTest))) "perform all tests" " ") ("Quit" (QUOTE (CLOSEW LTInitW)) "quit from testing mode" " ") ("Reset Failed Tests" (QUOTE (ResetFailedTests)) "reset the failed tests" " ") ("Reset Tester" (QUOTE (ResetLoopsTester)) "reset the tester" " ") ("Edit a Test" (QUOTE (EditATest)) "EditTEST a selected object" " ") ("Compiled/Interpreted" (QUOTE (LTCompInt)) "asks whether you want to run tester compiled or interpreted" " ") ("Load System" (QUOTE (LoadLTSystemCI)) "load rest of system: compiled or interpreted based on LTCompIntFlg" " ") ("Cleanup" (QUOTE (CleanupTester)) "cleans up by deleting temporary files" " ") ("Make Tester" (QUOTE (MakeTester)) "Copies tester files by making and compiling them to {indigo}loops>sources>" " ") ("Copy Tester" (QUOTE (CopyTester)) "Copies tester files to {indigo}loops>sources>" " "))) SetupLoopsTest2 D1 (P 2 INP2 P 1 INP P 0 Redo F 3 LTInitW) i!oooi ci(23Q TMenu) NIL (17Q (726Q 24Q 202Q 226Q) 13Q "LoopsTest Cmds" 7 (("Test Interactively" (MenuEval (InteractiveLoopsTest)) "test in a interactive mode") ("Basic Tests" (MenuEval (LOAD (QUOTE LTBCLS)) (BasicTest)) "run basic tests") ("Rest of Tests" (MenuEval (LoadLTIfNeeded) (BeginLoopsTest)) "run rest of the tests") ("All Tests" (MenuEval (BasicTest) (LoadLTIfNeeded) (BeginLoopsTest)) "perform all tests") ("Quit" (MenuEval (CLOSEW LTInitW)) "quit from testing mode") ("Reset Failed Tests" (MenuEval (ResetFailedTests)) "reset the failed tests") ("Reset Tester" (MenuEval (ResetLoopsTester)) "reset the tester") ("Edit a Test" (MenuEval (EditATest)) "EditTEST a selected object") ("Load System" (MenuEval (LoadLTSystem)) "load rest of system"))) TestBrowser.BoxNode D1 (I 1 obj I 0 self) +@Hg HAlI@Hg HAlI(40Q GetSuperMethod 12Q FetchMethodOrHelp) (35Q BoxNode 7 HasObject) NIL TestBrowser.FlashNode D1 (I 3 flashTime I 2 N I 1 node I 0 self) -@Hg HAlI@Hg HABClI(40Q GetSuperMethod 12Q FetchMethodOrHelp) (35Q FlashNode 7 HasObject) NIL TestBrowser.FlipNode D1 (I 1 obj I 0 self) +@Hg HAlI@Hg HAlI(40Q GetSuperMethod 12Q FetchMethodOrHelp) (35Q FlipNode 7 HasObject) NIL TestBrowser.LeftShiftSelect D1 (I 2 objName I 1 obj I 0 self) AHg HkI(12Q FetchMethodOrHelp) (7 TEST) NIL TestBrowser.MiddleShiftSelect D1 (I 2 objName I 1 obj I 0 self) AHg HkI(12Q FetchMethodOrHelp) (7 EditTEST) NIL TestBrowser.Recompute D1 (I 0 self) @Hg HkI@g @ (34Q TickleBrowserNodes 30Q GetValue 12Q GetSuperMethod) (25Q startingList 7 Recompute) NIL TestForever D1 (P 2 i P 0 SaveFlg I 0 Count F 3 TTY F 4 LTDontAsk) ]Ticg oS S @ldkJIJkZoS S Hco(123Q TERPRI 116Q PRIN1 106Q CNDIR 103Q CleanupTester 70Q InteractiveLoopsTest 64Q ResetLoopsTester 60Q CleanupTester 37Q InteractiveLoopsTest 34Q TERPRI 27Q PRIN1 17Q CNDIR 11Q LoadLTIfNeeded) (14Q {DSK}) (132Q "Done!!" 112Q "Make sure you are connected to the desired directory" 23Q "The tester will temporarily connect you to the local disk") TestBrowser.GetSubs D1 (P 5 X P 1 x P 0 Subs I 1 elt I 0 self) NA b@g ddhdAI H X@Hd] KJh\J&L(72Q GetObjectRec 50Q \APPEND2 44Q GetValue 17Q GetValue 6 GetObjectRec) (14Q subLinks) NIL TestLoadedInstances D1 (P 5 EXP P 4 LEV P 3 CLEV P 2 N P 1 U P 0 Ret I 0 self) i!@g i@gi @g Y<@gg Ig I #cgloL K M D@g Z<@gg Jg J #gloL K M h@g H(245Q PutValue 232Q EVAL 223Q EVAL 217Q EVAL 173Q TestLoadedInstances 165Q GetValue 156Q GetValue 141Q GetValue 126Q EVAL 117Q EVAL 113Q EVAL 67Q TestLoadedInstances 61Q GetValue 52Q GetValue 35Q GetValue 25Q PutValue 12Q GetValue) (242Q Checked 202Q LTMsgLev 162Q Key 153Q LinkVal 150Q NLink 136Q NLink 76Q LTMsgLev 56Q Key 47Q LinkVal 44Q ULink 32Q ULink 21Q Checked 7 Checked) (210Q (printout TTY "Instances not loaded properly from LTLOAD/LTDUMP" T "Check NLink from" self "to" N T) 104Q (printout TTY "Instances not loaded properly from LTLOAD/LTDUMP" T "Check ULink from" self "to" U T)) (PRETTYCOMPRINT LTBASICCOMS) (RPAQQ LTBASICCOMS ((CLASSES * LTBASICCLASSES) (FNS * LTBASICFNS) (MACROS PrintIfLev) (VARS * LTBASICVARS) (P (ResetLTBASICVARS) (SetUpLoopsTest)) (DECLARE: DONTEVAL%@LOAD DOEVAL%@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA MenuEval) (NLAML DoTest) (LAMA))))) (RPAQQ LTBASICCLASSES (AllTestBrowser SubTestBrowser TestBrowser FailedTestBrowser LTClass)) (DEFCLASSES AllTestBrowser SubTestBrowser TestBrowser FailedTestBrowser LTClass) (DEFCLASS AllTestBrowser (MetaClass Class Edited: (* sm: "30-MAR-83 11:07")) (Supers TestBrowser) ( ClassVariables) (InstanceVariables (title "TEST BROWSER:: [Tests on the right depend on the left ones. ALL tests are shown]") (window ? DefRegion (426 1 598 800)) (subLinks (PreTestOf SubTest))) (Methods)) (DEFCLASS SubTestBrowser (MetaClass Class Edited: (* sm: "29-MAR-83 14:51")) (Supers TestBrowser) ( ClassVariables) (InstanceVariables (title "SubTest Browser: Tests and their subtests") (window ? DefRegion (426 540 598 150)) (subLinks (SubTest))) (Methods)) (DEFCLASS TestBrowser (MetaClass Class Edited: (* sm: "31-MAY-83 16:10")) (Supers LatticeBrowser) ( ClassVariables (LeftButtonItems (("Test" (QUOTE TEST) "Test this node, if PreTests succeed") ( "TestSelf" (QUOTE TestSelf) "Test this node, even if PreTests fail") ("ReTest" (QUOTE ReTest) "test this node, resetting results from previous test if any") ("ReTestDep" (QUOTE ReTestDep) "retest this node and its dependents") ("EditTest" (QUOTE EditTestInTTYProcess) "edit this test interactively ") ("Describe" (QUOTE Describe) "describe the test object and results of any test") ("Reset" (QUOTE ResetSelf) "reset results from previous test") ("ResetPre" (QUOTE Reset) "reset it and its pretests") ("Test all" (QUOTE TESTall) "test it, subtests and others which depend on it") ("Test sub" (QUOTE TEST!) "test it, subtests, syntax etc") ("Reset sub" (QUOTE Reset!) "reset it and its subtests"))) ( MiddleButtonItems (PP PP! EEObject Recompute Unread)) (LocalCommands (EEObject Recompute Unread))) ( InstanceVariables (title "TEST BROWSER:: [Tests on the RIGHT depend on the left ones; SubTests not shown] ") (window ? DefRegion (426 210 598 600)) (subLinks (PreTestOf) doc (* list of links used to create SUBS list for browser))) (Methods (BoxNode TestBrowser.BoxNode args (obj)) (FlashNode TestBrowser.FlashNode args ( node N flashTime)) (FlipNode TestBrowser.FlipNode args (obj)) (GetSubs TestBrowser.GetSubs args (elt) doc (* returns the list of objects which are "subs" of "elt" using the value of IV "subLinks" in the browser to determine the links to be used)) (LeftShiftSelect TestBrowser.LeftShiftSelect args (obj objName) doc (* action to be performed for LeftShift selection)) (MiddleShiftSelect TestBrowser.MiddleShiftSelect args (obj objName) doc (* action for MiddleShift selection)) (Recompute TestBrowser.Recompute args NIL doc (* inherits Recompute from Super and does TickleBrowserNodes)))) (DEFCLASS FailedTestBrowser (MetaClass Class Edited: (* sm: " 1-JUN-83 11:11")) (Supers TestBrowser) ( ClassVariables (LeftButtonItems (("ReTest" (QUOTE ReTest) "test this node, resetting results from previous test if any") ("TestSelf" (QUOTE TestSelf) "Test this node, even if its PreTests failed") ("ReTestDep" (QUOTE ReTestDep) "retest this node and all others which depend on it") ("EditTest" (QUOTE EditTestInTTYProcess) "edit this test interactively ") ("Describe" (QUOTE Describe) "describe the test object and results of any test") ("Reset" (QUOTE ResetSelf) "reset results from previous test") ("ResetDep" (QUOTE ResetDep) "reset it and those which depend on it")))) (InstanceVariables (title "Failed/Incomplete Tests and their PreTests") (subLinks (PreTest)) (window ? DefRegion (426 210 598 280))) (Methods (LeftShiftSelect FailedTestBrowser.LeftShiftSelect args (obj objName) doc (* action for LeftShift selection)))) (DEFCLASS LTClass (MetaClass Class Edited: (* sm: "27-OCT-82 13:59")) (Supers NamedObject) ( ClassVariables (GCV1 V1) (PCV1 V1)) (InstanceVariables (GV1 V1) (GV2 #(V2 NIL NIL)) (GV3 Class doc (* used for inheritance test)) (PV1 PV1)) (Methods)) (RPAQQ LTBASICFNS (BasicTest CleanupTester CopyTester DoTest EditATest FailedTestBrowser.LeftShiftSelect InteractiveLoopsTest LTCompInt LTLoadFile LoadLTIfNeeded LoadLTSystem LoadLTSystemCI MakeTester MenuEval ResetLTBASICVARS ResetFailedTests ResetLoopsTester SetUpTestBrowser SetUpLoopsTest SetupLoopsTest2 TestBrowser.BoxNode TestBrowser.FlashNode TestBrowser.FlipNode TestBrowser.LeftShiftSelect TestBrowser.MiddleShiftSelect TestBrowser.Recompute TestForever TestBrowser.GetSubs TestLoadedInstances)) (PUTPROPS PrintIfLev MACRO (NLAMBDA (CLEV LEV EXP) (* executes EXP if LEV>=CLEV) (COND ((GEQ (EVAL LEV ) (EVAL CLEV)) (EVAL EXP))))) (RPAQQ LTBASICVARS (CompiledTesterFiles LTBROWSER LTCompIntFlg LTDontAsk LTInitW LTLOADEDREST LTLOGFLAG LTMsgLev LTError LTResult MainTesterFiles TempTesterFiles TesterTempObjects)) (RPAQQ CompiledTesterFiles (LTBASIC LTKER LTCASES LTDB LTLOAD LTBCLS)) (RPAQQ LTBROWSER NIL) (RPAQQ LTCompIntFlg NIL) (RPAQQ LTDontAsk NIL) (RPAQQ LTInitW {WINDOW}%#13,71454) (RPAQQ LTLOADEDREST NIL) (RPAQQ LTLOGFLAG T) (RPAQQ LTMsgLev 8) (RPAQQ LTError NIL) (RPAQQ LTResult T) (RPAQQ MainTesterFiles (LTBASIC LTKER LTCASES LTDB LT1.KB LTLOAD LTBCLS)) (RPAQQ TempTesterFiles (LTDUMPC LTDUMPC.DCOM LTDUMP LTKBS1.KB LTKB1.KB LTKB2.KB LTKB3.KB LTKB4.KB LTKB5.KB LTKB7.KB LTKB10.KB)) (RPAQQ TesterTempObjects (LTCA5 LTDC21 LTNClass)) (ResetLTBASICVARS) (SetUpLoopsTest) NIL