57 |
find-symbol.11 :internal) |
find-symbol.11 :internal) |
58 |
|
|
59 |
(deftest find-symbol.12 |
(deftest find-symbol.12 |
60 |
(find-symbol "FOO" #\A) |
(progn |
61 |
A::FOO :external) |
(set-up-packages) |
62 |
|
(let ((vals (multiple-value-list (find-symbol "FOO" #\A)))) |
63 |
|
(values (length vals) |
64 |
|
(package-name (symbol-package (first vals))) |
65 |
|
(symbol-name (first vals)) |
66 |
|
(second vals)))) |
67 |
|
2 "A" "FOO" :external) |
68 |
|
|
69 |
(deftest find-symbol.13 |
(deftest find-symbol.13 |
70 |
(progn |
(progn |
71 |
|
(set-up-packages) |
72 |
(intern "X" (find-package "A")) |
(intern "X" (find-package "A")) |
73 |
(find-symbol "X" #\A)) |
(let ((vals (multiple-value-list (find-symbol "X" #\A)))) |
74 |
A::X :internal) |
(values (length vals) |
75 |
|
(package-name (symbol-package (first vals))) |
76 |
|
(symbol-name (first vals)) |
77 |
|
(second vals)))) |
78 |
|
2 "A" "X" :internal) |
79 |
|
|
80 |
(deftest find-symbol.14 |
(deftest find-symbol.14 |
81 |
(find-symbol "FOO" #\B) |
(progn |
82 |
A::FOO :inherited) |
(set-up-packages) |
83 |
|
(let ((vals (multiple-value-list (find-symbol "FOO" #\B)))) |
84 |
|
(values (length vals) |
85 |
|
(package-name (symbol-package (first vals))) |
86 |
|
(symbol-name (first vals)) |
87 |
|
(second vals)))) |
88 |
|
2 "A" "FOO" :inherited) |
89 |
|
|
90 |
(deftest find-symbol.15 |
(deftest find-symbol.15 |
91 |
(find-symbol "FOO" "FS-B") |
(find-symbol "FOO" "FS-B") |