(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