Parent Directory | Revision Log | Patch
revision 1.15 by pfdietz, Mon Sep 27 13:54:20 2004 UTC | revision 1.16 by pfdietz, Sat Oct 2 12:12:48 2004 UTC | |
---|---|---|
# | Line 312 | Line 312 |
312 | t) | t) |
313 | ||
314 | (deftest concatenate.error.6 | (deftest concatenate.error.6 |
315 | :notes (:result-type-element-type-by-subtype) | |
316 | (let ((type '(or (vector bit) (vector t)))) | (let ((type '(or (vector bit) (vector t)))) |
317 | (if (subtypep type 'vector) | (if (subtypep type 'vector) |
318 | (eval `(signals-error-always (concatenate ',type '(0 1 0) '(1 1 0)) error)) | (eval `(signals-error-always (concatenate ',type '(0 1 0) '(1 1 0)) error)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |