111 |
(make-array 3 :element-type etype |
(make-array 3 :element-type etype |
112 |
:displaced-to name0 :displaced-index-offset 1))) |
:displaced-to name0 :displaced-index-offset 1))) |
113 |
|
|
114 |
|
;;; Free declaration scope tests |
115 |
|
|
116 |
|
(deftest do-external-symbols.16 |
117 |
|
(block done |
118 |
|
(let ((x :bad)) |
119 |
|
(declare (special x)) |
120 |
|
(let ((x :good)) |
121 |
|
(do-external-symbols (s (return-from done x)) |
122 |
|
(declare (special x)))))) |
123 |
|
:good) |
124 |
|
|
125 |
|
(deftest do-external-symbols.17 |
126 |
|
(let ((x :good)) |
127 |
|
(declare (special x)) |
128 |
|
(let ((x :bad)) |
129 |
|
(do-external-symbols (s "CL-TEST" x) |
130 |
|
(declare (special x))))) |
131 |
|
:good) |
132 |
|
|
133 |
;;; Error tests |
;;; Error tests |
134 |
|
|
135 |
(def-macro-test do-external-symbols.error.1 |
(def-macro-test do-external-symbols.error.1 |