(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