10 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
11 |
|
|
12 |
(deftest do-symbols.1 |
(deftest do-symbols.1 |
13 |
(equalt |
(progn |
14 |
(remove-duplicates |
(set-up-packages) |
15 |
(sort-symbols (let ((all nil)) |
(equalt |
16 |
(do-symbols (x "B" all) (push x all))))) |
(remove-duplicates |
17 |
(list (find-symbol "BAR" "B") |
(sort-symbols (let ((all nil)) |
18 |
(find-symbol "FOO" "A"))) |
(do-symbols (x "B" all) (push x all))))) |
19 |
|
(list (find-symbol "BAR" "B") |
20 |
|
(find-symbol "FOO" "A")))) |
21 |
t) |
t) |
22 |
|
|
23 |
;; |
;; |
31 |
(do-symbols (x pkg all) (push x all)))))) |
(do-symbols (x pkg all) (push x all)))))) |
32 |
|
|
33 |
(deftest do-symbols.2 |
(deftest do-symbols.2 |
34 |
(collect-symbols "DS1") |
(collect-symbols "DS1") |
35 |
(DS1:A DS1:B DS1::C DS1::D)) |
(DS1:A DS1:B DS1::C DS1::D)) |
36 |
|
|
37 |
(deftest do-symbols.3 |
(deftest do-symbols.3 |
38 |
(collect-symbols "DS2") |
(collect-symbols "DS2") |
39 |
(DS2:A DS2::E DS2::F DS2:G DS2:H)) |
(DS2:A DS2::E DS2::F DS2:G DS2:H)) |
40 |
|
|
41 |
(deftest do-symbols.4 |
(deftest do-symbols.4 |
93 |
`(deftest ,test-name |
`(deftest ,test-name |
94 |
(let ((name ,name-form)) |
(let ((name ,name-form)) |
95 |
(assert (string= name "B")) |
(assert (string= name "B")) |
96 |
|
(set-up-packages) |
97 |
(equalt |
(equalt |
98 |
(remove-duplicates |
(remove-duplicates |
99 |
(sort-symbols (let ((all nil)) |
(sort-symbols (let ((all nil)) |