19 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
20 |
(prog1 |
(prog1 |
21 |
(and sym2 |
(and sym2 |
22 |
(eq (symbol-package sym2) p) |
(eqt (symbol-package sym2) p) |
23 |
(string= (symbol-name sym2) "FOO") |
(string= (symbol-name sym2) "FOO") |
24 |
(eq sym sym2) |
(eqt sym sym2) |
25 |
(eq status :external)) |
(eqt status :external)) |
26 |
(delete-package p))))) |
(delete-package p))))) |
27 |
return-value) |
return-value) |
28 |
t) |
t) |
36 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
37 |
(prog1 |
(prog1 |
38 |
(and sym2 |
(and sym2 |
39 |
(eq (symbol-package sym2) p) |
(eqt (symbol-package sym2) p) |
40 |
(string= (symbol-name sym2) "FOO") |
(string= (symbol-name sym2) "FOO") |
41 |
(eq sym sym2) |
(eqt sym sym2) |
42 |
(eq status :external)) |
(eqt status :external)) |
43 |
(delete-package p)))))) |
(delete-package p)))))) |
44 |
t) |
t) |
45 |
|
|