184 |
#*01100 |
#*01100 |
185 |
nil) |
nil) |
186 |
|
|
187 |
(deftest concatenate.31 |
(deftest concatenate.order.1 |
188 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
189 |
(values |
(values |
190 |
(concatenate (progn (setf w (incf i)) 'string) |
(concatenate (progn (setf w (incf i)) 'string) |
194 |
i w x y z)) |
i w x y z)) |
195 |
"abcdefghi" 4 1 2 3 4) |
"abcdefghi" 4 1 2 3 4) |
196 |
|
|
197 |
(deftest concatenate.32 |
(deftest concatenate.order.2 |
198 |
(let ((i 0) x y z) |
(let ((i 0) x y z) |
199 |
(values |
(values |
200 |
(concatenate 'string |
(concatenate 'string |
206 |
|
|
207 |
;;; Error tests |
;;; Error tests |
208 |
|
|
209 |
(deftest concatenate-error.1 |
(deftest concatenate.error.1 |
210 |
(handler-case |
(handler-case |
211 |
(progn (proclaim '(optimize (safety 3))) |
(progn (proclaim '(optimize (safety 3))) |
212 |
(eval '(concatenate 'sequence '(a b c)))) |
(eval '(concatenate 'sequence '(a b c)))) |
213 |
(error () :caught)) |
(error () :caught)) |
214 |
:caught) |
:caught) |
215 |
|
|
216 |
(deftest concatenate-error.2 |
(deftest concatenate.error.2 |
217 |
(handler-case |
(handler-case |
218 |
(progn (proclaim '(optimize (safety 3))) |
(progn (proclaim '(optimize (safety 3))) |
219 |
(concatenate 'fixnum '(a b c d e))) |
(concatenate 'fixnum '(a b c d e))) |
220 |
(error () :caught)) |
(error () :caught)) |
221 |
:caught) |
:caught) |
222 |
|
|
223 |
(deftest concatenate-error.3 |
(deftest concatenate.error.3 |
224 |
(classify-error (concatenate '(vector * 3) '(a b c d e))) |
(classify-error (concatenate '(vector * 3) '(a b c d e))) |
225 |
type-error) |
type-error) |
226 |
|
|
227 |
(deftest concatenate-error.4 |
(deftest concatenate.error.4 |
228 |
(classify-error (concatenate)) |
(classify-error (concatenate)) |
229 |
program-error) |
program-error) |
230 |
|
|
231 |
(deftest concatenate-error.5 |
(deftest concatenate.error.5 |
232 |
(classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t)) |
(classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t)) |
233 |
type-error) |
type-error) |