61 |
"A") |
"A") |
62 |
|
|
63 |
(deftest package-name-5 |
(deftest package-name-5 |
64 |
(catch-type-error (package-name "NOT-THERE")) |
(notnot (member (classify-error (package-name "NOT-THERE")) |
65 |
type-error) |
'(type-error package-error))) |
66 |
|
t) |
67 |
|
|
68 |
(deftest package-name-6 |
(deftest package-name-6 |
69 |
(catch-type-error (package-name #\*)) |
(notnot (member (classify-error (package-name #\*)) |
70 |
type-error) |
'(type-error package-error))) |
71 |
|
t) |
72 |
|
|
73 |
(deftest package-name-7 |
(deftest package-name-7 |
74 |
(package-name "CL") |
(package-name "CL") |
75 |
"COMMON-LISP") |
"COMMON-LISP") |
76 |
|
|
77 |
(deftest package-name-8 |
(deftest package-name-8 |
78 |
(package-name "COMMON-LISP") |
(package-name "COMMON-LISP") |
79 |
"COMMON-LISP") |
"COMMON-LISP") |
80 |
|
|
81 |
(deftest package-name-9 |
(deftest package-name-9 |
82 |
(package-name "COMMON-LISP-USER") |
(package-name "COMMON-LISP-USER") |
83 |
"COMMON-LISP-USER") |
"COMMON-LISP-USER") |
84 |
|
|
85 |
(deftest package-name-10 |
(deftest package-name-10 |
86 |
(package-name "CL-USER") |
(package-name "CL-USER") |
87 |
"COMMON-LISP-USER") |
"COMMON-LISP-USER") |
88 |
|
|
89 |
(deftest package-name-11 |
(deftest package-name-11 |
90 |
(package-name "KEYWORD") |
(package-name "KEYWORD") |
91 |
"KEYWORD") |
"KEYWORD") |
92 |
|
|
93 |
(deftest package-name-12 |
(deftest package-name-12 |
94 |
(package-name (find-package "CL")) |
(package-name (find-package "CL")) |
95 |
"COMMON-LISP") |
"COMMON-LISP") |
96 |
|
|
97 |
(deftest package-name-13 |
(deftest package-name-13 |
98 |
(let* ((p (make-package "TEMP1")) |
(let* ((p (make-package "TEMP1")) |
99 |
(pname1 (package-name p))) |
(pname1 (package-name p))) |
100 |
(rename-package "TEMP1" "TEMP2") |
(rename-package "TEMP1" "TEMP2") |
101 |
(let ((pname2 (package-name p))) |
(let ((pname2 (package-name p))) |
102 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
103 |
(list pname1 pname2 (package-name p)))) |
(list pname1 pname2 (package-name p)))) |
104 |
("TEMP1" "TEMP2" nil)) |
("TEMP1" "TEMP2" nil)) |
105 |
|
|
106 |
;; (find-package (package-name p)) == p for any package p |
;; (find-package (package-name p)) == p for any package p |
130 |
("Q")) |
("Q")) |
131 |
|
|
132 |
(deftest package-nicknames-2 |
(deftest package-nicknames-2 |
133 |
(ignore-errors (package-nicknames #\A)) |
(ignore-errors (package-nicknames #\A)) |
134 |
("Q")) |
("Q")) |
135 |
|
|
136 |
(deftest package-nicknames-3 |
(deftest package-nicknames-3 |
137 |
(ignore-errors (package-nicknames ':|A|)) |
(ignore-errors (package-nicknames ':|A|)) |
138 |
("Q")) |
("Q")) |
139 |
|
|
140 |
(deftest package-nicknames-4 |
(deftest package-nicknames-4 |
141 |
(ignore-errors (package-nicknames "B")) |
(ignore-errors (package-nicknames "B")) |
142 |
nil) |
nil) |
143 |
|
|
144 |
(deftest package-nicknames-5 |
(deftest package-nicknames-5 |
145 |
(ignore-errors (package-nicknames #\B)) |
(ignore-errors (package-nicknames #\B)) |
146 |
nil) |
nil) |
147 |
|
|
148 |
(deftest package-nicknames-6 |
(deftest package-nicknames-6 |
149 |
(ignore-errors (package-nicknames '#:|B|)) |
(ignore-errors (package-nicknames '#:|B|)) |
150 |
nil) |
nil) |
151 |
|
|
152 |
(deftest package-nicknames-7 |
(deftest package-nicknames-7 |
153 |
(ignore-errors |
(ignore-errors |
154 |
(subsetp '("CL") |
(subsetp '("CL") |
155 |
(package-nicknames "COMMON-LISP") |
(package-nicknames "COMMON-LISP") |
156 |
:test #'string=)) |
:test #'string=)) |
157 |
t) |
t) |
158 |
|
|
159 |
(deftest package-nicknames-8 |
(deftest package-nicknames-8 |
165 |
t) |
t) |
166 |
|
|
167 |
(deftest package-nicknames-9 |
(deftest package-nicknames-9 |
168 |
(catch-type-error (package-nicknames 10)) |
(catch-type-error (package-nicknames 10)) |
169 |
type-error) |
type-error) |
170 |
|
|
171 |
(deftest package-nicknames-10 |
(deftest package-nicknames-10 |
172 |
(ignore-errors (package-nicknames (find-package "A"))) |
(ignore-errors (package-nicknames (find-package "A"))) |
173 |
("Q")) |
("Q")) |
174 |
|
|
175 |
(deftest package-nicknames-11 |
(deftest package-nicknames-11 |
176 |
(catch-type-error (package-nicknames "NOT-A-PACKAGE-NAME")) |
(notnot (member (classify-error (package-nicknames "NOT-A-PACKAGE-NAME")) |
177 |
type-error) |
'(type-error package-error))) |
178 |
|
t) |
179 |
|
|
180 |
|
|
181 |
;; (find-package n) == p for each n in (package-nicknames p), |
;; (find-package n) == p for each n in (package-nicknames p), |