/[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.17 by pfdietz, Fri Jun 3 00:45:54 2005 UTC revision 1.18 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 502  Line 502 
502       i a b c d e))       i a b c d e))
503    (a a a a a) 5 1 2 3 4 5)    (a a a a a) 5 1 2 3 4 5)
504    
505    ;;; Const fold tests
506    
507    (def-fold-test make-sequence.fold.1
508      (make-sequence 'list 5 :initial-element 'a))
509    (def-fold-test make-sequence.fold.2
510      (make-sequence 'vector 5 :initial-element 'a))
511    (def-fold-test make-sequence.fold.3
512      (make-sequence 'bit-vector 5 :initial-element 0))
513    (def-fold-test make-sequence.fold.4
514      (make-sequence 'string 5 :initial-element #\a))
515    
516  ;;; FIXME: Add tests for upgrading of character subtypes  ;;; FIXME: Add tests for upgrading of character subtypes

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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