(FILECREATED "21-SEP-83 11:47:24" {INDIGO}<LOOPS>SOURCES>LTLOAD.;2
 3496   

      previous date: " 2-MAR-83 15:52:19" {IVY}<MITTAL>LISP>LTLOAD.;8)


(PRETTYCOMPRINT LTLOADCOMS)

(RPAQQ LTLOADCOMS
 ((CLASSES LOOPSTestClassLD)
		   (INSTANCES LD1 LD2 LD3 LD4)
		   (FNS MKL)
		   (VARS LTLOADINSTANCES LTLOADCOMS)))
(DEFCLASSES LOOPSTestClassLD)
[DEFCLASS LOOPSTestClassLD

   (MetaClass Class Edited:                                  (* sm: "19-OCT-82 16:28")

	      doc                                            (* used to create instances for LTLoadInstance.

							     Stored on file LTLOAD)

	      )
   (Supers NamedObject)
   (ClassVariables)
   (InstanceVariables (NLink NIL LinkVal NIL)
		      (ULink NIL LinkVal NIL)
		      (Checked NIL)
		      (Key NIL))
   (Methods)]

(DEFINST LOOPSTestClassLD (LD1 "O\R@@[P")
	 (name #(LD1 NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[Q") LinkVal LD2)
	 (ULink #&(LOOPSTestClassLD "O\R@@[U") LinkVal LD1)
	 (Checked NIL)
	 (Key LD1))



(DEFINST LOOPSTestClassLD (LD2 "O\R@@[Q")
	 (name #(LD2 NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[R") LinkVal LD3)
	 (ULink #&(LOOPSTestClassLD "O\R@@[V") LinkVal LD2)
	 (Checked NIL)
	 (Key LD2))



(DEFINST LOOPSTestClassLD (LD3 "O\R@@[R")
	 (name #(LD3 NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[P") LinkVal LD1)
	 (ULink #&(LOOPSTestClassLD "O\R@@[W") LinkVal LD3)
	 (Checked NIL)
	 (Key LD3))



(DEFINST LOOPSTestClassLD (LD4 "O\R@@[S")
	 (name #(LD4 NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[P") LinkVal LD1)
	 (ULink #&(LOOPSTestClassLD "O\R@@[X") LinkVal LD4)
	 (Checked NIL)
	 (Key LD4))



(DEFINST LOOPSTestClassLD ("O\R@@[U")
	 (name #(NIL NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[R") LinkVal LD3)
	 (ULink #&(LOOPSTestClassLD "O\R@@[W") LinkVal LD3)
	 (Checked NIL)
	 (Key LD1))



(DEFINST LOOPSTestClassLD ("O\R@@[V")
	 (name #(NIL NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[P") LinkVal LD1)
	 (ULink #&(LOOPSTestClassLD "O\R@@[U") LinkVal LD1)
	 (Checked NIL)
	 (Key LD2))



(DEFINST LOOPSTestClassLD ("O\R@@[W")
	 (name #(NIL NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[Q") LinkVal LD2)
	 (ULink #&(LOOPSTestClassLD "O\R@@[V") LinkVal LD2)
	 (Checked NIL)
	 (Key LD3))



(DEFINST LOOPSTestClassLD ("O\R@@[X")
	 (name #(NIL NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[Q") LinkVal LD2)
	 (ULink #&(LOOPSTestClassLD "O\R@@[Y") LinkVal LD41)
	 (Checked NIL)
	 (Key LD4))



(DEFINST LOOPSTestClassLD ("O\R@@[Y")
	 (name #(NIL NIL RememberName))
	 (NLink #&(LOOPSTestClassLD "O\R@@[R") LinkVal LD3)
	 (ULink #&(LOOPSTestClassLD "O\R@@[V") LinkVal LD2)
	 (Checked NIL)
	 (Key LD41))



(DEFINEQ

(MKL

  [LAMBDA (self)                                             (* sm: "19-OCT-82 14:32")

    (PROG (U N)
          [COND
	    ((%@ self ULink LinkVal))
	    (T (SETQ U (%@ ULink))
	       (COND
		 (U (PutValue self (QUOTE ULink)
			      (GetValue U (QUOTE Key))
			      (QUOTE LinkVal))
		    (MKL
 U]
          [COND
	    ((%@ self NLink LinkVal))
	    (T (SETQ N (%@ NLink))
	       (COND
		 (N (PutValue self (QUOTE NLink)
			      (GetValue N (QUOTE Key))
			      (QUOTE LinkVal))
		    (MKL
 N]
          (RETURN self])
)

(RPAQQ LTLOADINSTANCES
 (LD1 LD2 LD3 LD4))

(RPAQQ LTLOADCOMS
 ((CLASSES LOOPSTestClassLD)
		   (INSTANCES LD1 LD2 LD3 LD4)
		   (FNS MKL)
		   (VARS LTLOADINSTANCES LTLOADCOMS)))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2731 3287 (MKL 2741 . 3285)))))
STOP