21 |
(p2 (make-package "TEST5" :use '("TEST4"))) |
(p2 (make-package "TEST5" :use '("TEST4"))) |
22 |
(r1 (package-shadowing-symbols "TEST4")) |
(r1 (package-shadowing-symbols "TEST4")) |
23 |
(r2 (package-shadowing-symbols "TEST5"))) |
(r2 (package-shadowing-symbols "TEST5"))) |
24 |
(multiple-value-bind (s1 kind1) |
(multiple-value-bind* (s1 kind1) |
25 |
(find-symbol "A" p1) |
(find-symbol "A" p1) |
26 |
(multiple-value-bind (s2 kind2) |
(multiple-value-bind* (s2 kind2) |
27 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
28 |
(let ((r3 (shadow "A" p2))) |
(let ((r3 (shadow "A" p2))) |
29 |
(multiple-value-bind (s3 kind3) |
(multiple-value-bind* (s3 kind3) |
30 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
31 |
(list |
(list |
32 |
(package-name p1) |
(package-name p1) |
61 |
(p2 (make-package "H" :use '("G"))) |
(p2 (make-package "H" :use '("G"))) |
62 |
(r1 (package-shadowing-symbols "G")) |
(r1 (package-shadowing-symbols "G")) |
63 |
(r2 (package-shadowing-symbols "H"))) |
(r2 (package-shadowing-symbols "H"))) |
64 |
(multiple-value-bind (s1 kind1) |
(multiple-value-bind* (s1 kind1) |
65 |
(find-symbol "A" p1) |
(find-symbol "A" p1) |
66 |
(multiple-value-bind (s2 kind2) |
(multiple-value-bind* (s2 kind2) |
67 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
68 |
(let ((r3 (shadow "A" "H"))) |
(let ((r3 (shadow "A" "H"))) |
69 |
(multiple-value-bind (s3 kind3) |
(multiple-value-bind* (s3 kind3) |
70 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
71 |
(prog1 |
(prog1 |
72 |
(list (package-name p1) (package-name p2) |
(list (package-name p1) (package-name p2) |
99 |
(p2 (make-package "H" :use '("G"))) |
(p2 (make-package "H" :use '("G"))) |
100 |
(r1 (package-shadowing-symbols "G")) |
(r1 (package-shadowing-symbols "G")) |
101 |
(r2 (package-shadowing-symbols "H"))) |
(r2 (package-shadowing-symbols "H"))) |
102 |
(multiple-value-bind (s1 kind1) |
(multiple-value-bind* (s1 kind1) |
103 |
(find-symbol "A" p1) |
(find-symbol "A" p1) |
104 |
(multiple-value-bind (s2 kind2) |
(multiple-value-bind* (s2 kind2) |
105 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
106 |
(let ((r3 (shadow "A" #\H))) |
(let ((r3 (shadow "A" #\H))) |
107 |
(multiple-value-bind (s3 kind3) |
(multiple-value-bind* (s3 kind3) |
108 |
(find-symbol "A" p2) |
(find-symbol "A" p2) |
109 |
(prog1 |
(prog1 |
110 |
(list (package-name p1) (package-name p2) |
(list (package-name p1) (package-name p2) |
134 |
(make-package :G) |
(make-package :G) |
135 |
(let ((s1 (intern "X" :G))) |
(let ((s1 (intern "X" :G))) |
136 |
(shadow "X" :G) |
(shadow "X" :G) |
137 |
(multiple-value-bind (s2 kind) |
(multiple-value-bind* (s2 kind) |
138 |
(find-symbol "X" :G) |
(find-symbol "X" :G) |
139 |
(list (eqt s1 s2) |
(list (eqt s1 s2) |
140 |
(symbol-name s2) |
(symbol-name s2) |
156 |
(export (intern "X" :G) :G) |
(export (intern "X" :G) :G) |
157 |
(make-package :H :use '("G")) |
(make-package :H :use '("G")) |
158 |
(shadow "X" :H) |
(shadow "X" :H) |
159 |
(multiple-value-bind (s1 kind1) |
(multiple-value-bind* (s1 kind1) |
160 |
(find-symbol "X" :H) |
(find-symbol "X" :H) |
161 |
(shadow "X" :H) |
(shadow "X" :H) |
162 |
(multiple-value-bind (s2 kind2) |
(multiple-value-bind* (s2 kind2) |
163 |
(find-symbol "X" :H) |
(find-symbol "X" :H) |
164 |
(list (eqt s1 s2) kind1 kind2)))) |
(list (eqt s1 s2) kind1 kind2)))) |
165 |
(error (c) c)) |
(error (c) c)) |