Parent Directory | Revision Log | Patch
revision 1.15 by pfdietz, Tue Sep 28 01:16:17 2004 UTC | revision 1.16 by pfdietz, Sat Oct 2 12:12:48 2004 UTC | |
---|---|---|
# | Line 470 | Line 470 |
470 | t t) | t t) |
471 | ||
472 | (deftest make-sequence.error.15 | (deftest make-sequence.error.15 |
473 | :notes (:result-type-element-type-by-subtype) | |
474 | (if (subtypep '(or (vector bit) (vector t)) 'vector) | (if (subtypep '(or (vector bit) (vector t)) 'vector) |
475 | (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error) | (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error) |
476 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |