7 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
8 |
|
|
9 |
(deftest do-symbols-1 |
(deftest do-symbols-1 |
10 |
(equal |
(equal |
11 |
(sort-symbols (let ((all nil)) |
(sort-symbols (let ((all nil)) |
12 |
(do-symbols (x "B" all) (push x all)))) |
(do-symbols (x "B" all) (push x all)))) |
13 |
(list (find-symbol "BAR" "B") |
(list (find-symbol "BAR" "B") |
14 |
(find-symbol "FOO" "A"))) |
(find-symbol "FOO" "A"))) |
15 |
t) |
t) |
16 |
|
|
17 |
;; |
;; |
37 |
(DS2:A DS2::E DS2::F DS2:G DS2:H)) |
(DS2:A DS2::E DS2::F DS2:G DS2:H)) |
38 |
|
|
39 |
(deftest do-symbols-4 |
(deftest do-symbols-4 |
40 |
(collect-symbols "DS3") |
(collect-symbols "DS3") |
41 |
(DS1:A DS3:B DS2:G DS2:H DS3:I DS3:J DS3:K DS3::L DS3::M)) |
(DS1:A DS3:B DS2:G DS2:H DS3:I DS3:J DS3:K DS3::L DS3::M)) |
42 |
|
|
43 |
(deftest do-symbols-5 |
(deftest do-symbols-5 |
44 |
(remove-duplicates |
(remove-duplicates |
45 |
(collect-symbols "DS4") |
(collect-symbols "DS4") |
46 |
:test #'(lambda (x y) |
:test #'(lambda (x y) |
47 |
(and (eq x y) |
(and (eq x y) |
48 |
(not (eq x 'DS4::B))))) |
(not (eq x 'DS4::B))))) |
49 |
(DS1:A DS1:B DS2::F DS3:G DS3:I DS3:J DS3:K DS4::X DS4::Y DS4::Z)) |
(DS1:A DS1:B DS2::F DS3:G DS3:I DS3:J DS3:K DS4::X DS4::Y DS4::Z)) |
50 |
|
|
51 |
|
|