(FILECREATED "21-SEP-83 11:47:56" {INDIGO}<LOOPS>SOURCES>LTBCLS.;2 2015   

      previous date: "31-MAY-83 11:03:19" {IVY}<MITTAL>LISP>LTBCLS.;2)


(PRETTYCOMPRINT LTBCLSCOMS)

(RPAQQ LTBCLSCOMS ((CLASSES LTClass LTClass1 LTClass2 LTClass3)
		   (FNS LTClass1.BasicSS1 LTClass2.BasicSS1)))
(DEFCLASSES LTClass LTClass1 LTClass2 LTClass3)
[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)]

[DEFCLASS LTClass1
   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:45"))
   (Supers NamedObject)
   (ClassVariables)
   (InstanceVariables (ssVar1 0 doc                          (* used in ←Super basic test)))
   (Methods (BasicSS1 LTClass1.BasicSS1 args NIL doc         (* Used in Basic ←Super test 1)))]

[DEFCLASS LTClass2
   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:46"))
   (Supers LTClass1)
   (ClassVariables)
   (InstanceVariables)
   (Methods (BasicSS1 LTClass2.BasicSS1 args NIL doc         (* Basic ←Super test)))]

[DEFCLASS LTClass3
   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:47"))
   (Supers LTClass2)
   (ClassVariables)
   (InstanceVariables)
   (Methods)]

(DEFINEQ

(LTClass1.BasicSS1
  [LAMBDA (self)                                             (* sm: "31-MAY-83 10:50")
                                                             (* Used in Basic ←Super test 1)
    21])

(LTClass2.BasicSS1
  [LAMBDA (self)                                             (* sm: "31-MAY-83 10:50")
                                                             (* Basic ←Super test)
    (←Super
      self BasicSS1])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1526 1993 (LTClass1.BasicSS1 1536 . 1755) (LTClass2.BasicSS1 1757 . 1991)))))
STOP