/[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.6 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.7 by pfdietz, Thu Mar 6 02:25:20 2003 UTC
# Line 9  Line 9 
9    (let ((x (make-sequence 'list 4)))    (let ((x (make-sequence 'list 4)))
10      (and (eql (length x) 4)      (and (eql (length x) 4)
11           (listp x)           (listp x)
12             #+:ansi-tests-strict-initial-element
13           (loop for e in x always (eql (car x) e))           (loop for e in x always (eql (car x) e))
14           t))           t))
15    t)    t)
# Line 21  Line 22 
22    (let ((x (make-sequence 'cons 4)))    (let ((x (make-sequence 'cons 4)))
23      (and (eql (length x) 4)      (and (eql (length x) 4)
24           (listp x)           (listp x)
25             #+:ansi-tests-strict-initial-element
26           (loop for e in x always (eql (car x) e))           (loop for e in x always (eql (car x) e))
27           t))           t))
28    t)    t)
# Line 36  Line 38 
38  (deftest make-sequence.6  (deftest make-sequence.6
39    (let ((s (make-sequence 'string 10)))    (let ((s (make-sequence 'string 10)))
40      (and (eql (length s) 10)      (and (eql (length s) 10)
41             #+:ansi-tests-strict-initial-element
42           (loop for e across s always (eql e (aref s 0)))           (loop for e across s always (eql e (aref s 0)))
43           t))           t))
44    t)    t)
# Line 44  Line 47 
47    (make-sequence 'simple-string 10 :initial-element #\a)    (make-sequence 'simple-string 10 :initial-element #\a)
48    "aaaaaaaaaa")    "aaaaaaaaaa")
49    
50    
51  (deftest make-sequence.8  (deftest make-sequence.8
52    (let ((s (make-sequence 'simple-string 10)))    (let ((s (make-sequence 'simple-string 10)))
53      (and (eql (length s) 10)      (and (eql (length s) 10)
54             #+:ansi-tests-strict-initial-element
55           (loop for e across s always (eql e (aref s 0)))           (loop for e across s always (eql e (aref s 0)))
56           t))           t))
57    t)    t)
# Line 58  Line 63 
63  (deftest make-sequence.10  (deftest make-sequence.10
64    (let ((x (make-sequence 'vector 10)))    (let ((x (make-sequence 'vector 10)))
65      (and (eql (length x) 10)      (and (eql (length x) 10)
66             #+:ansi-tests-strict-initial-element
67           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
68           t))           t))
69    t)    t)
# Line 73  Line 79 
79  (deftest make-sequence.12  (deftest make-sequence.12
80    (let ((x (make-sequence 'simple-vector 10)))    (let ((x (make-sequence 'simple-vector 10)))
81      (and (eql (length x) 10)      (and (eql (length x) 10)
82             #+:ansi-tests-strict-initial-element
83           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
84           t))           t))
85    t)    t)
# Line 88  Line 95 
95  (deftest make-sequence.14  (deftest make-sequence.14
96    (let ((x (make-sequence '(vector *) 10)))    (let ((x (make-sequence '(vector *) 10)))
97      (and (eql (length x) 10)      (and (eql (length x) 10)
98             #+:ansi-tests-strict-initial-element
99           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
100           t))           t))
101    t)    t)
# Line 103  Line 111 
111  (deftest make-sequence.16  (deftest make-sequence.16
112    (let ((x (make-sequence '(simple-vector *)  10)))    (let ((x (make-sequence '(simple-vector *)  10)))
113      (and (eql (length x) 10)      (and (eql (length x) 10)
114             #+:ansi-tests-strict-initial-element
115           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
116           t))           t))
117    t)    t)
# Line 118  Line 127 
127  (deftest make-sequence.18  (deftest make-sequence.18
128    (let ((x (make-sequence '(string *) 10)))    (let ((x (make-sequence '(string *) 10)))
129      (and (eql (length x) 10)      (and (eql (length x) 10)
130             #+:ansi-tests-strict-initial-element
131           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
132           t))           t))
133    t)    t)
# Line 133  Line 143 
143  (deftest make-sequence.20  (deftest make-sequence.20
144    (let ((x (make-sequence '(simple-string *)  10)))    (let ((x (make-sequence '(simple-string *)  10)))
145      (and (eql (length x) 10)      (and (eql (length x) 10)
146             #+:ansi-tests-strict-initial-element
147           (loop for e across x always (eql e (aref x 0)))           (loop for e across x always (eql e (aref x 0)))
148           t))           t))
149    t)    t)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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