71 |
A::FOO :inherited) |
A::FOO :inherited) |
72 |
|
|
73 |
(deftest find-symbol.15 |
(deftest find-symbol.15 |
74 |
(find-symbol "FOO" "B") |
(find-symbol "FOO" "FS-B") |
75 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
76 |
|
|
77 |
(deftest find-symbol.16 |
(deftest find-symbol.16 |
78 |
(find-symbol "FOO" (find-package "B")) |
(find-symbol "FOO" (find-package "FS-B")) |
79 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
80 |
|
|
81 |
(deftest find-symbol.17 |
(deftest find-symbol.17 |
82 |
(let ((name (make-array '(3) :initial-contents "FOO" |
(let ((name (make-array '(3) :initial-contents "FOO" |
83 |
:element-type 'base-char))) |
:element-type 'base-char))) |
84 |
(find-symbol name "B")) |
(find-symbol name "FS-B")) |
85 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
86 |
|
|
87 |
(deftest find-symbol.18 |
(deftest find-symbol.18 |
88 |
(let ((name (make-array '(4) :initial-contents "FOOD" |
(let ((name (make-array '(4) :initial-contents "FOOD" |
89 |
:element-type 'character |
:element-type 'character |
90 |
:fill-pointer 3))) |
:fill-pointer 3))) |
91 |
(find-symbol name "B")) |
(find-symbol name "FS-B")) |
92 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
93 |
|
|
94 |
(deftest find-symbol.19 |
(deftest find-symbol.19 |
95 |
(let ((name (make-array '(4) :initial-contents "FOOD" |
(let ((name (make-array '(4) :initial-contents "FOOD" |
96 |
:element-type 'base-char |
:element-type 'base-char |
97 |
:fill-pointer 3))) |
:fill-pointer 3))) |
98 |
(find-symbol name "B")) |
(find-symbol name "FS-B")) |
99 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
100 |
|
|
101 |
(deftest find-symbol.20 |
(deftest find-symbol.20 |
102 |
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" |
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" |
104 |
(name (make-array '(3) :element-type 'character |
(name (make-array '(3) :element-type 'character |
105 |
:displaced-to name0 |
:displaced-to name0 |
106 |
:displaced-index-offset 1))) |
:displaced-index-offset 1))) |
107 |
(find-symbol name "B")) |
(find-symbol name "FS-B")) |
108 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
109 |
|
|
110 |
(deftest find-symbol.21 |
(deftest find-symbol.21 |
111 |
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" |
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" |
113 |
(name (make-array '(3) :element-type 'base-char |
(name (make-array '(3) :element-type 'base-char |
114 |
:displaced-to name0 |
:displaced-to name0 |
115 |
:displaced-index-offset 1))) |
:displaced-index-offset 1))) |
116 |
(find-symbol name "B")) |
(find-symbol name "FS-B")) |
117 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
118 |
|
|
119 |
(deftest find-symbol.22 |
(deftest find-symbol.22 |
120 |
(find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char)) |
(find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char)) |
121 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
122 |
|
|
123 |
(deftest find-symbol.23 |
(deftest find-symbol.23 |
124 |
(find-symbol "FOO" (make-array '(2) :initial-element #\B |
(find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX" |
125 |
:fill-pointer 1 |
:fill-pointer 4 |
126 |
:element-type 'base-char)) |
:element-type 'base-char)) |
127 |
A::FOO :inherited) |
FS-A::FOO :inherited) |
128 |
|
|
129 |
|
|
130 |
|
|