132 |
(make-array 1 :element-type etype |
(make-array 1 :element-type etype |
133 |
:displaced-to name0 :displaced-index-offset 1))) |
:displaced-to name0 :displaced-index-offset 1))) |
134 |
|
|
135 |
|
;;; Free declaration scope tests |
136 |
|
|
137 |
|
(deftest do-symbols.16 |
138 |
|
(block done |
139 |
|
(let ((x :bad)) |
140 |
|
(declare (special x)) |
141 |
|
(let ((x :good)) |
142 |
|
(do-symbols (s (return-from done x)) |
143 |
|
(declare (special x)))))) |
144 |
|
:good) |
145 |
|
|
146 |
|
(deftest do-symbols.17 |
147 |
|
(let ((x :good)) |
148 |
|
(declare (special x)) |
149 |
|
(let ((x :bad)) |
150 |
|
(do-symbols (s "CL-TEST" x) |
151 |
|
(declare (special x))))) |
152 |
|
:good) |
153 |
|
|
154 |
(def-macro-test do-symbols.error.1 |
(def-macro-test do-symbols.error.1 |
155 |
(do-symbols (x "CL"))) |
(do-symbols (x "CL"))) |
|
|
|