(FILECREATED "21-SEP-83 11:39:53" ("compiled on " {INDIGO}SOURCES>LTKER.;2) "10-SEP-83 14:41:27" tcompl'd in LOOPSDEMO.SYSOUT dated "13-SEP-83 08:14:58") (FILECREATED "21-SEP-83 11:39:10" {INDIGO}SOURCES>LTKER.;2 116646 changes to: (CLASSES LOOPSTestEnvironment LOOPSTestMethod LOOPSTestPrimitive) (FNS AskPreTest AskSubTest AskSyntaxTest AskTestCases BeginLoopsTest CheckClassTest CheckPreTest DescribePreviousTry DescribeTestLink DoLoopsTest DoTestSelf EditPreTest EvaluateTest ExecTestFields LOOPSTestObject.DefineTEST LOOPSTestObject.Describe LOOPSTestObject.EditTEST LOOPSTestObject.TEST LOOPSTestObject.TEST! LOOPSTestObject.TestSelf LOOPSTestPrimitive.XTEST LOOPSTestMeta.BeginLOOPSTest LOOPSTestKernel.TEST LOOPSTestObject.ReTest LOOPSTestObject.ResetSelf MakeBackLink PerformAltTest PerformSetup PerformTest PreTestsSatisfied? PrintFailedExp PrintTestCode PrintTestHeader) previous date: "20-SEP-83 16:42:59" {IVY}LISP>LTKER.;125) ATEST D1 (L (1 Comm 0 Exp)) @NIL NIL NIL AddAltTest D1 (L (0 self)) hNIL NIL NIL AllowRemove D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) FBdlDBD@AC @ACE gDBD@AC @ACE DB@ACE (103Q PutLocalState 70Q PutLocalState 60Q DREMOVE 55Q GetLocalState 32Q PutLocalState 21Q GetLocalState) (37Q -) NIL AskPreTest D1 (P 2 y P 1 x P 0 PreTest I 0 self F 3 TTY F 4 x)  hdo@g ohohdo Xdddgdg%Hddhd@gI dgdg>@g d@gI Hddhd@gT Fdgdg$Hddhd@gI oS HS S oS S @g S S h(410Q TERPRI 403Q PRIN1 377Q GetValue 367Q TERPRI 362Q PRIN1 351Q TERPRI 344Q PRIN1 336Q PRIN1 316Q RemoveValue 237Q PutValue 200Q RemoveValue 162Q GetValue 125Q PutValue 45Q ASKUSER 17Q GetValue) (374Q PreTest 312Q PreTest 260Q Delete 252Q D 233Q PreTest 174Q PreTest 157Q PreTest 147Q Modify 141Q M 121Q PreTest 67Q Add 61Q A 14Q PreTest) (356Q "New PreTests are:" 332Q "Illegal format PreTest list. Ignoring.." 41Q (CONFIRMFLG NIL) 33Q ((A "dd " EXPLAINSTRING "Add - enter the ADDITIONS to PreTest list" KEYLST (( NIL RETURN ANSWER CONFIRMFLG T))) (M "odify " EXPLAINSTRING "Modify - enter the NEW PreTest list" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (D "elete " EXPLAINSTRING "Delete - enter the list of PreTests to be deleted" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (N "o " EXPLAINSTRING "No - no change" RETURN NIL)) 23Q "Do you want to add/delete any" 10Q "Current PreTests are:") AskSubTest D1 (P 5 y P 4 x P 0 PreTest I 0 self F 6 TTY F 7 x) K@hdo@g ohohdo XdddgdgcHddd1[j@gg Zg JkIg Kkٰddhd@gL dgdg?@g d@gL Hddhd@gW Fdgdg$Hddhd@gL oV HV V oV V @g V V h(507Q TERPRI 502Q PRIN1 476Q GetValue 466Q TERPRI 461Q PRIN1 450Q TERPRI 443Q PRIN1 435Q PRIN1 415Q RemoveValue 336Q PutValue 276Q RemoveValue 260Q GetValue 223Q PutValue 164Q PutValue 161Q GetValue 145Q FetchMethodOrHelp 136Q GetObjectRec 45Q ASKUSER 17Q GetValue) (473Q SubTest 411Q SubTest 357Q Delete 351Q D 331Q SubTest 272Q SubTest 255Q SubTest 245Q Modify 237Q M 217Q SubTest 156Q name 142Q New 133Q LOOPSTestPrimitive 130Q SubTest 67Q Add 61Q A 14Q SubTest) (455Q "New SubTests are:" 431Q "Illegal format SubTest list. Ignoring.." 41Q (CONFIRMFLG NIL) 33Q ((A "dd " EXPLAINSTRING "Add - enter the ADDITIONS to SubTest list" KEYLST (((READ) "a number of new Primitive or a list of existing SubTest objects" RETURN ANSWER CONFIRMFLG T))) (M "odify " EXPLAINSTRING "Modify - enter the NEW SubTest list" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (D "elete " EXPLAINSTRING "Delete - enter the list of SubTests to be deleted" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (N "o " EXPLAINSTRING "No - no change" RETURN NIL)) 23Q "Do you want to add/delete any" 10Q "Current SubTest objects are:") AskSyntaxTest D1 (P 5 y P 4 x P 0 PreTest I 0 self F 6 TTY F 7 x) K@hdo@g ohohdo XdddgdgcHddd1[j@gg Zg JkIg Kkٰddhd@gL dgdg?@g d@gL Hddhd@gW Fdgdg$Hddhd@gL oV HV V oV V @g V V h(507Q TERPRI 502Q PRIN1 476Q GetValue 466Q TERPRI 461Q PRIN1 450Q TERPRI 443Q PRIN1 435Q PRIN1 415Q RemoveValue 336Q PutValue 276Q RemoveValue 260Q GetValue 223Q PutValue 164Q PutValue 161Q GetValue 145Q FetchMethodOrHelp 136Q GetObjectRec 45Q ASKUSER 17Q GetValue) (473Q SyntaxTest 411Q SyntaxTest 357Q Delete 351Q D 331Q SyntaxTest 272Q SyntaxTest 255Q SyntaxTest 245Q Modify 237Q M 217Q SyntaxTest 156Q name 142Q New 133Q LOOPSTestSyntax 130Q SyntaxTest 67Q Add 61Q A 14Q SyntaxTest) (455Q "New SyntaxTests are:" 431Q "Illegal format SyntaxTest list. Ignoring.." 41Q (CONFIRMFLG NIL) 33Q ((A "dd " EXPLAINSTRING "Add - enter the ADDITIONS to SyntaxTest list" KEYLST (((READ) "a number of new or a list of existing SyntaxTest objects" RETURN ANSWER CONFIRMFLG T))) (M "odify " EXPLAINSTRING "Modify - enter the NEW SyntaxTest list" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (D "elete " EXPLAINSTRING "Delete - enter the list of SyntaxTests to be deleted" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (N "o " EXPLAINSTRING "No - no change" RETURN NIL)) 23Q "Do you want to add/delete any" 10Q "Current SyntaxTest objects are:") AskTestCases D1 (P 4 x P 0 PreTest I 0 self F 5 TTY) @hdo@g ohohdo X"oU U @g U U hdgdgQHdddoU U [j@gg Zg JkIg Kkٰdgdg%Hddhd@gL VoU HU U >(351Q TERPRI 344Q PRIN1 336Q PRIN1 315Q RemoveValue 237Q PutValue 234Q GetValue 220Q FetchMethodOrHelp 211Q GetObjectRec 165Q TERPRI 160Q PRIN1 106Q TERPRI 101Q PRIN1 75Q GetValue 65Q TERPRI 60Q PRIN1 45Q ASKUSER 17Q GetValue) (311Q CasesUsed 257Q Delete 251Q D 231Q name 215Q New 206Q LOOPSTestCases 203Q CasesUsed 123Q Add 115Q A 72Q CasesUsed 14Q CasesUsed) (332Q "Illegal format CasesUsed list. Ignoring.." 154Q "Specify a number. " 54Q "New TestCases are:" 41Q (CONFIRMFLG NIL) 33Q ((A "dd " EXPLAINSTRING "Add - enter the number of new TestCase objects to be created" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (D "elete " EXPLAINSTRING "Delete - enter the list of TestCases to be deleted" KEYLST (((READ) NIL RETURN ANSWER CONFIRMFLG T))) (N "o " EXPLAINSTRING "No - no change" RETURN NIL)) 23Q "Do you want to add/delete any" 10Q "Current TestCase objects are:") BeginLoopsTest D1 (P 6 x P 1 Inp P 0 Tlis F 7 TTY F 10Q Failed F 11Q NotDone F 12Q Tested F 13Q HasTest F 14Q LTLOGFLAG F 15Q Seed F 16Q LTError F 17Q LTResult F 20Q INP F 21Q LTABROWSER F 22Q LTBROWSER)  0WWlo9HMdlhM[i ZhLgMMdhKhhc J(54Q ERRORSET) (67Q ATEST) (25Q "*ERROR*") EvaluateTest D1 (P 2 Res P 1 DefType P 0 Test I 2 APFlg I 1 Field I 0 self F 3 TTY F 4 FMSG) o@A ghcBgHolHi Ho IHhHdg@H g@H Hg@H oS S h(153Q TERPRI 146Q PRIN1 135Q EvaluatePROGTest 120Q EvaluateANDALLTest 104Q EvaluateANDTest 57Q MEMBER 45Q ERRORSET 4 GetValue) (126Q PROGN 111Q ANDALL 74Q AND 22Q AND 7 PROGN) (142Q "Should not reach here in function: EvaluateTest" 54Q (PROGN AND ANDALL) 32Q (T)) ExaminePreviousTry D1 (P 5 x P 0 AltRes I 1 TestedLst I 0 self) q @g YdgIgh@g @g 0@g dM g KJh\J&LXiHigHgHg(103Q GetValue 75Q GetObjectRec 62Q GetValue 50Q GetValue 40Q GetValue 11Q GetValue) (156Q U 147Q U 141Q ? 100Q Tested? 57Q AltTest 45Q Tested? 35Q Tested? 25Q ? 17Q U 6 Tested?) NIL ExecTestFields D1 (P 1 RES P 0 INP I 0 self F 3 TTY) 0`dododg dgjdndhdJ XdHoS HS lS @H S ihdS S @H i YoS S @(202Q TERPRI 175Q PRIN1 162Q ERRORSET 156Q GetValue 150Q TERPRI 143Q PRINTDEF 133Q POSITION 127Q GetValue 121Q SPACES 112Q PRIN1 104Q PRIN1 70Q MENU) (41Q DEFAULTMENUHELDFN 32Q CLRPROMPT 5 MENUTYPE#) (171Q "Error.." 100Q "Executing.." 23Q "Test Fields" 13Q (SetUp TestExpr ResetExp)) FindObjForLink D1 (I 1 self I 0 link) xAg b@dgAd`d` gg @dgg gg @gg Ad`d` (165Q AltTest 162Q GetLispClass 134Q GetObjectRec 117Q GetObjectRec 103Q GetObjectRec 64Q GetObjectRec 50Q GetLispClass 7 GetObjectRec) (152Q classTYPE# 143Q instanceTYPE# 131Q LOOPSTestSuper 124Q UsesObj 114Q LOOPSTestSyntax 107Q SyntaxTest 100Q LOOPSTestPrimitive 72Q SubTest 61Q LOOPSTestCases 54Q CasesUsed 40Q classTYPE# 31Q instanceTYPE# 17Q PreTest 4 LOOPSTestObject) NIL FlashTestBrowserA0709 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 LTBROWSER F 3 self) RHg HSldIi(12Q FetchMethodOrHelp) (7 FlashNode) NIL FlashTestBrowser D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self F 0 LTBROWSER) &PB@AC goi DB@ACE (43Q PutLocalState 30Q FlashTestBrowserA0709 13Q GetValue) (16Q ?) (24Q (DUMMY.FOR.ERRORSET)) GIVGetFn D1 (L (5 type 4 activeVal 3 propName 2 localSt 1 varName 0 self)) BkNIL NIL NIL GenerateTestList D1 (P 6 x P 1 Seed P 0 HasTest F 7 y F 10Q KBTestsFlg F 11Q AllTest)  g g g g g g g g g g Wg g cdAJ KX0HU^ cg Wg Wg WL Mh\JZM&dNg dKJh\J&LdH(262Q GetValue 220Q GetValue 207Q GetValue 175Q GetValue 165Q GetObjectRec 135Q \APPEND2 132Q \APPEND2 127Q \APPEND2 124Q \APPEND2 121Q \APPEND2 116Q GetClassValue 110Q GetObjectRec 76Q GetClassValue 70Q GetObjectRec 62Q GetClassValue 54Q GetObjectRec 46Q GetClassValue 40Q GetObjectRec 32Q GetClassValue 24Q GetObjectRec 16Q GetClassValue 10Q GetObjectRec) (257Q PreTest 215Q PreTest 204Q PreTestOf 172Q TestExpr 113Q Instances 105Q LOOPSTestEnvironment 73Q Instances 65Q LOOPSTestMethod 57Q Instances 51Q LOOPSTestLispFunc 43Q Instances 35Q LOOPSTestKernel 27Q Instances 21Q LOOPSTestBraidObject 13Q Instances 5 LOOPSTestBasic) NIL GetFromActVal D1 (I 5 type I 4 activeVal I 3 propName I 2 localSt I 1 varName I 0 self) D@AC (6 GetLocalState) NIL NIL InformTestBrowserA0712 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 obj% F 13Q newValue F 14Q LTBROWSER F 15Q self) WqHWigg]! Md`h9_NOhLjLIZhKJI_OO ,WigIlذOO__ᰰgo _HWllOi(210Q ERROR 133Q GetNthMethod) (201Q FlashNode 147Q FlipNode 62Q class 47Q class 36Q classTYPE# 23Q FlashNode 17Q FlipNode) (205Q "not found for DoMethod") InformTestBrowserA0719 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 LTBROWSER F 3 self) RHg HSlIi(12Q FetchMethodOrHelp) (7 FlipNode) NIL InformTestBrowser D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self F 1 LTBROWSER) lQ_@AC HgHg"BHgh Hghoi &BHgHg@AC ioi DB@ACE (151Q PutLocalState 136Q InformTestBrowserA0719 123Q GetValue 70Q InformTestBrowserA0712 10Q GetValue) (111Q U 102Q ? 53Q U 42Q ? 26Q U 17Q ?) (132Q (DUMMY.FOR.ERRORSET) 64Q (DUMMY.FOR.ERRORSET)) LOOPSTestEnvironment.TEST D1 (I 1 TestedLst I 0 self) 5@Hg HAlI@gg i@g @g (62Q GetValue 52Q ERRORSET 47Q GetValue 35Q GetValue 12Q GetSuperMethod) (57Q Tested? 44Q AfterTest 32Q Tested? 27Q SetUp 7 TEST) NIL LOOPSTestObject.DefineTEST D1 (P 2 Cmd P 1 PreTest P 0 Name I 0 self F 5 TTY) ]P@g XoU U @\g LkK@g @ @g @ @g @ @g @ @(131Q AskSubTest 124Q GetValue 114Q AskSyntaxTest 107Q GetValue 77Q AskTestCases 72Q GetValue 62Q AskPreTest 55Q GetValueOnly 37Q FetchMethodOrHelp 27Q TERPRI 22Q PRIN1 11Q GetValue) (121Q SubTest 104Q SyntaxTest 67Q CasesUsed 52Q PreTest 34Q Edit 6 name) (16Q " Please do not change the dependency lists in the editor") LOOPSTestObject.Describe D1 (I 0 self F 0 TTY) @oP lP @g P P @gg @ oP P h(74Q TERPRI 67Q PRIN1 56Q DescribePreviousTry 51Q GetValue 37Q TERPRI 32Q PRIN1 26Q GetValue 16Q SPACES 7 PRIN1) (46Q DoneOnce 43Q Tested? 23Q TestDesc) (63Q "Not tested yet. To test, send TEST message or use TestBrowser" 3 "Test Desc::") LOOPSTestObject.EditTESTA0726A0733 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 obj% F 12Q INP F 13Q EditTestObj) z WaH]! Md`h:_WOhLjLIZhKJ"I_#OO  Wo HkNiIlذOO__۰(133Q ERROR 117Q GetNthMethod) (46Q class 32Q class 21Q classTYPE#) (130Q "not found for DoMethod") LOOPSTestObject.EditTESTA0726A0739 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 Describe) NIL LOOPSTestObject.EditTESTA0726A0742 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 TEST) NIL LOOPSTestObject.EditTESTA0726A0745 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 ReTest) NIL LOOPSTestObject.EditTESTA0726A0748 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 TEST!) NIL LOOPSTestObject.EditTESTA0726A0751 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 ResetSelf) NIL LOOPSTestObject.EditTESTA0726A0754 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 Reset) NIL LOOPSTestObject.EditTESTA0726A0757 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 EditTestObj) RHg HkIi(12Q FetchMethodOrHelp) (7 Reset!) NIL LOOPSTestObject.EditTESTA0726 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 X F 3 TTY F 4 EditTestObj F 5 Stack F 6 INP2 F 7 INP F 10Q EditTestWindows F 11Q Redo) `cdgdgdgdgWdH hc)dg+oS S TIg IolJdgdg+oS S TIg IolJdgTIg IkJdgdgoi dgoi |dgoS T [dg!U c coS lS T5dg7o c TUc V cVS lS odgTUc dg2U coS T S S U kUUc dgOdgHdgAdg:dg3dg,dg%dgdgdgdgdgTWdggxdggldgg`dggTdggHdgg=CLEV) (COND ((GEQ (EVAL LEV ) (EVAL CLEV)) (EVAL EXP))))) (PUTPROPS UnknownValue? MACRO (LAMBDA (val) (OR (EQ val NotSetValue) (EQ val (QUOTE U))))) (PUTPROPS ValueExists? MACRO (LAMBDA (val) (* Returns T iff val is not eq NotSetValue) (AND (NOT (EQ val NotSetValue)) (NOT (EQ val (QUOTE U)))))) (PUTPROPS ValueNonNIL? MACRO (LAMBDA (val) (* Returns T iff val is NOT NIL and NOT EQ NotSetValue) ( AND val (NOT (EQ val (QUOTE U))) (NOT (EQ val NotSetValue))))) (RPAQQ LTKERVARS (AllTest CMN DUP EditTestWindows Failed HasTest KBTestsFlg LTAskNoTestAvailable LTELev LTMsgLev NotDone OMN Seed Tested)) (RPAQQ AllTest (LTTemplate LTDumpInstance LTLoadInstance LTMethod LTObject LTActiveValue LTKernel LTFSendSuper LTFGetInitialValue LTFPutNthValue LTFGetNthValue LTFGetObjectNames LTFtype? LTFClass LTFGetObjectRec LTFReplaceActiveValue LTFPutLocalState LTFGetLocalState LTFRenameMethodFunction LTFMoveMethod LTFMoveVariable LTFMoveClassVariable LTFRenameVariable LTFCalledFns LTFRenameMethod LTFTryMethod LTFDoMethod LTFPutItOnly LTFGetItOnly LTFPutIt LTFGetIt LTFPutMethodOnly LTFGetMethodOnly LTFPutMethod LTFGetMethod LTFPutClassOnly LTFGetClassOnly LTFPutClass LTFGetClass LTFPutClassValueOnly LTFPutValueOnly LTFPushClassValue LTFPutClassValue LTFAddValue LTFPushValue LTFGetClassValueOnly LTFGetValueOnly LTFGetClassValue LTFDM LTFDC LTFPutValue LTFGetValue LTFSend LTMTitleCommandInObj LTMSetNameInObj LTMRenameInObj LTMPutInObj LTMPPV!InObj LTMPP!InObj LTMPPInObj LTMList!InObj LTMListInObj LTMInspectValueCommandInObj LTMInspectTitleMenuInObj LTMInspectTitleInObj LTMInspectStoreInObj LTMInspectPropertiesInObj LTMInspectPropCommandInObj LTMInspectFetchInObj LTMHasIVInObj LTMEditInObj LTMDumpFactsInObj LTMDestroy!InObj LTMDestroyInObj LTMTitleCommandInClass LTMSetNameInClass LTMRenameInClass LTMPutInClass LTMPPV!InClass LTMPP!InClass LTMPPInClass LTMList!InClass LTMInspectValueCommandInClass LTMInspectTitleMenuInClass LTMInspectTitleInClass LTMInspectStoreInClass LTMInspectPropertiesInClass LTMInspectPropCommandInClass LTMInspectFetchInClass LTMHasIVInClass LTMEditInClass LTMDumpFactsInClass LTMDestroy!InClass LTMDestroyInClass LTMWhereIs LTMUnderstands LTMUnSetName LTMTraceIt LTMReturnDefaultValue LTMPutIVProp LTMPrintOn LTMNoObjectForMsg LTMMessageNotUnderstood LTMInstantiate LTMInstOf! LTMInstOf LTMInspect LTMIVMissing LTMDoMethod LTMDeleteIV LTMCopyShallow LTMCopyDeep LTMClassName LTMClass LTMBreakIt LTMAt LTMAssocKB LTMAddIV LTMSubClasses LTMReplaceSupers LTMPPMethod LTMPPM LTMOnFile LTMNewWithValues LTMNewTemp LTMNew LTMMoveMethod LTMMethodDoc LTMInitialize LTMHasCV LTMFetchMethod LTMEditMethod LTMDisplaySubClasses LTMDefMethod LTMCopyMethod LTMCommentMethods LTMDeleteInClass LTMAdd LTMListInClass LTEMapObjectNames LTECancel LTEMakeCurrent LTEThawKB LTEFreezeKB LTEAssocKB LTEDumpToKB LTESummarize LTEDelete LTECommunity LTEOld LTENew)) (RPAQQ CMN (Add CommentMethods CopyMethod DefMethod DisplaySubClasses EditMethod FetchMethod HasCV Initialize MethodDoc MoveMethod New NewTemp NewWithValues OnFile PPM PPMethod ReplaceSupers SubClasses )) (RPAQQ DUP (Destroy Destroy! DumpFacts Edit HasIV InspectFetch InspectPropCommand InspectProperties InspectStore InspectTitle InspectTitleMenu InspectValueCommand List List! PP PP! PPV! Put Rename SetName TitleCommand)) (RPAQQ EditTestWindows NIL) (RPAQQ Failed NIL) (RPAQQ HasTest NIL) (RPAQQ KBTestsFlg T) (RPAQQ LTAskNoTestAvailable NIL) (RPAQQ LTELev 8) (RPAQQ LTMsgLev 8) (RPAQQ NotDone NIL) (RPAQQ OMN (AddIV AssocKB At BreakIt Class ClassName CopyDeep CopyShallow DeleteIV DoMethod IVMissing Inspect InstOf InstOf! Instantiate MessageNotUnderstood NoObjectForMsg PrintOn PutIVProp ReturnDefaultValue TraceIt UnSetName Understands WhereIs)) (RPAQQ Seed (#&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&( LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&( LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&( LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())") #&(LOOPSTestLispFunc "#(())"))) (RPAQQ Tested NIL) (ResetLTKERCLASSES) NIL