15 |
(safely-delete-package "X") |
(safely-delete-package "X") |
16 |
(let* ((p (make-package "X" :use nil)) |
(let* ((p (make-package "X" :use nil)) |
17 |
(r (export (intern "X" p) p))) |
(r (export (intern "X" p) p))) |
18 |
(multiple-value-bind (sym1 access1) |
(multiple-value-bind* (sym1 access1) |
19 |
(find-symbol "X" p) |
(find-symbol "X" p) |
20 |
(unexport sym1 p) |
(unexport sym1 p) |
21 |
(multiple-value-bind (sym2 access2) |
(multiple-value-bind* (sym2 access2) |
22 |
(find-symbol "X" p) |
(find-symbol "X" p) |
23 |
(and (eqt r t) |
(and (eqt r t) |
24 |
(eqt sym1 sym2) |
(eqt sym1 sym2) |
35 |
(safely-delete-package "X") |
(safely-delete-package "X") |
36 |
(let* ((p (make-package "X" :use nil)) |
(let* ((p (make-package "X" :use nil)) |
37 |
(r (export (intern "X" p) p))) |
(r (export (intern "X" p) p))) |
38 |
(multiple-value-bind (sym1 access1) |
(multiple-value-bind* (sym1 access1) |
39 |
(find-symbol "X" p) |
(find-symbol "X" p) |
40 |
(unexport (list sym1) "X") |
(unexport (list sym1) "X") |
41 |
(multiple-value-bind (sym2 access2) |
(multiple-value-bind* (sym2 access2) |
42 |
(find-symbol "X" p) |
(find-symbol "X" p) |
43 |
(and (eqt sym1 sym2) |
(and (eqt sym1 sym2) |
44 |
(eqt r t) |
(eqt r t) |
56 |
(let* ((p (make-package "X" :use nil)) |
(let* ((p (make-package "X" :use nil)) |
57 |
(r1 (export (intern "X" p) p)) |
(r1 (export (intern "X" p) p)) |
58 |
(r2 (export (intern "Y" p) p))) |
(r2 (export (intern "Y" p) p))) |
59 |
(multiple-value-bind (sym1 access1) |
(multiple-value-bind* (sym1 access1) |
60 |
(find-symbol "X" p) |
(find-symbol "X" p) |
61 |
(multiple-value-bind (sym1a access1a) |
(multiple-value-bind* (sym1a access1a) |
62 |
(find-symbol "Y" p) |
(find-symbol "Y" p) |
63 |
(unexport (list sym1 sym1a) '#:|X|) |
(unexport (list sym1 sym1a) '#:|X|) |
64 |
(multiple-value-bind (sym2 access2) |
(multiple-value-bind* (sym2 access2) |
65 |
(find-symbol "X" p) |
(find-symbol "X" p) |
66 |
(multiple-value-bind (sym2a access2a) |
(multiple-value-bind* (sym2a access2a) |
67 |
(find-symbol "Y" p) |
(find-symbol "Y" p) |
68 |
(and (eqt sym1 sym2) |
(and (eqt sym1 sym2) |
69 |
(eqt sym1a sym2a) |
(eqt sym1a sym2a) |
85 |
(safely-delete-package "X") |
(safely-delete-package "X") |
86 |
(let* ((p (make-package "X" :use nil)) |
(let* ((p (make-package "X" :use nil)) |
87 |
(r (export (intern "X" p) p))) |
(r (export (intern "X" p) p))) |
88 |
(multiple-value-bind (sym1 access1) |
(multiple-value-bind* (sym1 access1) |
89 |
(find-symbol "X" p) |
(find-symbol "X" p) |
90 |
(unexport (list sym1) #\X) |
(unexport (list sym1) #\X) |
91 |
(multiple-value-bind (sym2 access2) |
(multiple-value-bind* (sym2 access2) |
92 |
(find-symbol "X" p) |
(find-symbol "X" p) |
93 |
(and (eqt sym1 sym2) |
(and (eqt sym1 sym2) |
94 |
(eqt r t) |
(eqt r t) |
121 |
(let ((p (make-package "X" :use nil))) |
(let ((p (make-package "X" :use nil))) |
122 |
(let* ((sym (intern "FOO" p)) |
(let* ((sym (intern "FOO" p)) |
123 |
(r (unexport sym p))) |
(r (unexport sym p))) |
124 |
(multiple-value-bind (sym2 access) |
(multiple-value-bind* (sym2 access) |
125 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
126 |
(and (eqt r t) |
(and (eqt r t) |
127 |
(eqt access :internal) |
(eqt access :internal) |