(FILECREATED "15-Mar-85 12:05:50" {PHYLUM}<MITTAL>LISP>LTBCLS.;2
 2121   

      changes to:  (METHODS LTClass1.BasicSS1 LTClass2.BasicSS1)
		   (FNS LTClass1.BasicSS1 LTClass2.BasicSS1)

      previous date: " 5-Jun-84 14:33:36" {PHYLUM}<MITTAL>LISP>LTBCLS.;1)


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

(PRETTYCOMPRINT LTBCLSCOMS)

(RPAQQ LTBCLSCOMS
 ((CLASSES LTClass LTClass1 LTClass2 LTClass3)
		   (METHODS 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))]

[DEFCLASS LTClass1

   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:45")
)
   (Supers NamedObject)
   (InstanceVariables (ssVar1 0 doc                          (* used in ←Super basic test)
))]

[DEFCLASS LTClass2

   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:46")
)
   (Supers LTClass1)]

[DEFCLASS LTClass3

   (MetaClass Class Edited:                                  (* sm: "31-MAY-83 10:47")
)
   (Supers LTClass2)]

[METH LTClass1  BasicSS1 NIL

      (* Used in Basic ←Super test 1)]


[METH LTClass2  BasicSS1 NIL

      (* Basic ←Super test)]


(DEFINEQ

(LTClass1.BasicSS1

  (Method ((LTClass1 BasicSS1)
	   self)                                             (* sm: "31-MAY-83 10:50")

                                                             (* Used in Basic ←Super test 1)

	  21))

(LTClass2.BasicSS1

  (Method ((LTClass2 BasicSS1)
	   self)                                             (* sm: "31-MAY-83 10:50")

                                                             (* Basic ←Super test)

	  (←Super
	    self BasicSS1)))
)
(PUTPROPS LTBCLS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1531 2044 (LTClass1.BasicSS1 1541 . 1783) (LTClass2.BasicSS1 1785 . 2042)))))
STOP