(FILECREATED "15-Mar-85 15:48:07" {PHYLUM}<MITTAL>LISP>LTDB.;6
 2653   

      changes to:  (VARS LTDBINSTANCES)
		   (INSTANCES LTFGetNthValue)

      previous date: "18-Dec-84 16:47:44" {PHYLUM}<MITTAL>LISP>LTDB.;4)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LTDBCOMS)

(RPAQQ LTDBCOMS
 ((INSTANCES * LTDBINSTANCES)))

(RPAQQ LTDBINSTANCES
 (LTP44 LTP25 LTP24 LTP5 LTP4 LTKernel))
[DEFINST LOOPSTestPrimitive (LTP44 "OVR@@A")

         (name #(LTP44 NIL RememberName))
	 (ResetExp (SEND ($ LOOPSTestClass5)
			 Add
			 (QUOTE Super)
			 (QUOTE LOOPSTestSuper)))
	 [SetUp (PROGN (SEND ($ LOOPSTestClass5)
			     Delete
			     (QUOTE Super)
			     (QUOTE LOOPSTestSuper))
		       (SETQ LTV1 (SEND ($ LOOPSTestClass5)
					List
					(QUOTE Supers]
	 (TestExpr (AND (NOT (FMEMB (QUOTE LOOPSTestSuper)
				    LTV1))
			(FMEMB (QUOTE NamedObject)
			       LTV1)))
	 (TestDesc "Delete in CLASS: Supers")
	 (UsesObj #((LOOPSTestClass5)
		    NIL AllowRemove))
	 (SubTestOf #(NIL NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP25 "OOR@@AP")

         (name #(LTP25 NIL RememberName))
	 (PreTest ? Tested? ?)
	 (ResetExp (SEND ($ LOOPSTestClass4)
			 Delete
			 (QUOTE IVProp)
			 (QUOTE AIV2)
			 (QUOTE Prop1)))
	 (SetUp (SEND ($ LOOPSTestClass4)
		      Add
		      (QUOTE IVProp)
		      (QUOTE AIV2)
		      (QUOTE LTP25)
		      (QUOTE Prop1)))
	 [TestExpr (AND (EQUAL (GetValue ($ LOOPSTestClass4)
					 (QUOTE AIV2)
					 (QUOTE Prop1))
			       (QUOTE LTP25))
			(EQUAL (GetValue ($ LOOPSTestSuper)
					 (QUOTE AIV2)
					 (QUOTE Prop1))
			       (QUOTE Orig]
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (TestDesc "Add Method: IVProp to a inherited IV")
	 (UsesObj #((LOOPSTestSuper LOOPSTestClass4)
		    NIL AllowRemove))
	 (SubTest ? Tested? ?)
	 (SubTestOf #(NIL NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP24 "OOR@@A")

         (name #(LTP24 NIL RememberName))
	 (SubTestOf #(NIL NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP5 "OMR@@Az")

         (name #(LTP5 NIL RememberName))
	 (SubTestOf #(NIL NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP4 "OMR@@Ay")

         (name #(LTP4 NIL RememberName))
	 (SubTestOf #(NIL NIL MakeBackLink))]


[DEFINST LOOPSTestKernel (LTKernel "OGR@@E")

         (name #(LTKernel NIL RememberName))
	 (PreTest NIL Tested? ?)
	 (PreTestOf #(NIL NIL MakeBackLink))
	 (ResetExp NIL)
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (TestDesc "Kernel features of LOOPS")
	 (SubTest ? Tested? ?)]


(PUTPROPS LTDB COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP