13 |
(let ((*package* *package*)) |
(let ((*package* *package*)) |
14 |
(declare (special *package*)) |
(declare (special *package*)) |
15 |
(let ((p2 (in-package "A"))) |
(let ((p2 (in-package "A"))) |
16 |
(and (eq p2 (find-package "A")) |
(and (eqt p2 (find-package "A")) |
17 |
(eq *package* p2)))) |
(eqt *package* p2)))) |
18 |
t) |
t) |
19 |
|
|
20 |
(deftest in-package-2 |
(deftest in-package-2 |
21 |
(let ((*package* *package*)) |
(let ((*package* *package*)) |
22 |
(declare (special *package*)) |
(declare (special *package*)) |
23 |
(let ((p2 (in-package |A|))) |
(let ((p2 (in-package |A|))) |
24 |
(and (eq p2 (find-package "A")) |
(and (eqt p2 (find-package "A")) |
25 |
(eq *package* p2)))) |
(eqt *package* p2)))) |
26 |
t) |
t) |
27 |
|
|
28 |
(deftest in-package-3 |
(deftest in-package-3 |
29 |
(let ((*package* *package*)) |
(let ((*package* *package*)) |
30 |
(declare (special *package*)) |
(declare (special *package*)) |
31 |
(let ((p2 (in-package :|A|))) |
(let ((p2 (in-package :|A|))) |
32 |
(and (eq p2 (find-package "A")) |
(and (eqt p2 (find-package "A")) |
33 |
(eq *package* p2)))) |
(eqt *package* p2)))) |
34 |
t) |
t) |
35 |
|
|
36 |
(deftest in-package-4 |
(deftest in-package-4 |
38 |
(declare (special *package*)) |
(declare (special *package*)) |
39 |
(handler-case |
(handler-case |
40 |
(let ((p2 (in-package #\A))) |
(let ((p2 (in-package #\A))) |
41 |
(and (eq p2 (find-package "A")) |
(and (eqt p2 (find-package "A")) |
42 |
(eq *package* p2))) |
(eqt *package* p2))) |
43 |
(error (c) c))) |
(error (c) c))) |
44 |
t) |
t) |
45 |
|
|