/[gcl]/gcl/ansi-tests/make-sequence.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-sequence.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26