blob: 4431f23d39a122815c3096bfaab610aa3223d546 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
(load "../common")
(defstruct grand nil
(gx 'gx)
(gy 'gy)
(:static gs0 'gs0)
(:static gs1 'gs1)
(:method gm (me) 'gm))
(defstruct base0 nil
(:method m (me) 'm0))
(defstruct base1 grand
(x 'b1x)
(:static gs1 'gs1-b1)
(:method m (me) 'm1))
(defstruct base2 grand
(y 'b2y)
(:static gs1 'gs1-b2)
(:method m (me) 'm2))
(defstruct base3 nil
(x 'b3x)
(gx 'b3gx)
(:method b3m0 (me))
(:method b3m1 (me)))
(defstruct der0 (base0 base1 base2 base3)
(x 'dx)
(y 'dy)
(z 'dz)
(gy 'dgy)
(:static gs0 'dgs0))
(defstruct der1 (base3 base1 base2)
(:method b3m1 (me)))
(defvarl d0 (new der0))
(defvarl d1 (new der1))
(prinl d0)
(prinl d0.gs0)
(prinl d0.gs1)
(prinl d1)
(prinl d1.gs0)
(prinl d1.gs1)
(prinl (func-get-name d0.b3m0))
(prinl (func-get-name d1.b3m1))
(defstruct der2 (base3 base1 base2))
(defstruct der3 (base3 base2 base1))
(prinl (call-super-method (new der2) 'm))
(prinl (call-super-method (new der3) 'm))
(prinl (call-super-method (new der3) 'gm))
(prinl (call-super-fun 'der2 'm nil))
(prinl (call-super-fun 'der3 'm nil))
(prinl (call-super-fun 'der3 'gm nil))
(prinl (static-slot-home 'der2 'm))
(prinl (static-slot-home 'der3 'm))
(prinl (static-slot-home 'der3 'gm))
|
