blob: 0e54086a714b22b49bc88f957129b8ee68bdc5e5 (
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
66
67
68
69
70
71
72
73
74
75
76
77
78
|
(load "../common")
(defstruct grand nil
(li 'nil)
(gx 'gx)
(gy 'gy)
(:init (me) (push 'g me.li))
(:fini (me) (push 'gf me.li))
(:static gs0 'gs0)
(:static gs1 'gs1)
(:method gm (me) 'gm))
(defstruct base0 nil
(:method m (me) 'm0))
(defstruct base1 grand
(x 'b1x)
(:init (me) (push 'b1 me.li))
(:fini (me) (push 'b1f me.li))
(:static gs1 'gs1-b1)
(:method m (me) 'm1))
(defstruct base2 grand
(y 'b2y)
(:init (me) (push 'b2 me.li))
(:fini (me) (push 'b2f me.li))
(: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))
(each ((ty '(der0 der1 der2 der3)))
(let ((ob (new* ty)))
(prinl ob.li)
(call-finalizers ob)
(prinl ob.li)))
|