19 |
(and (null sym1) |
(and (null sym1) |
20 |
(null status1) |
(null status1) |
21 |
(string= (symbol-name sym2) "FOO") |
(string= (symbol-name sym2) "FOO") |
22 |
(eq (symbol-package sym2) p) |
(eqt (symbol-package sym2) p) |
23 |
(eq status2 :internal) |
(eqt status2 :internal) |
24 |
(progn (delete-package p) t))))) |
(progn (delete-package p) t))))) |
25 |
t) |
t) |
26 |
|
|
34 |
(and (null sym1) |
(and (null sym1) |
35 |
(null status1) |
(null status1) |
36 |
(string= (symbol-name sym2) "FOO") |
(string= (symbol-name sym2) "FOO") |
37 |
(eq (symbol-package sym2) p) |
(eqt (symbol-package sym2) p) |
38 |
(eq status2 :internal) |
(eqt status2 :internal) |
39 |
(progn (delete-package p) t))))) |
(progn (delete-package p) t))))) |
40 |
t) |
t) |