/[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.13 by pfdietz, Sun Sep 26 05:33:22 2004 UTC revision 1.14 by pfdietz, Sun Sep 26 16:20:30 2004 UTC
# Line 249  Line 249 
249    (make-sequence '(vector * *) 10 :initial-element nil)    (make-sequence '(vector * *) 10 :initial-element nil)
250    #(nil nil nil nil nil nil nil nil nil nil))    #(nil nil nil nil nil nil nil nil nil nil))
251    
252    ;;; Bit vectors
253    
254    (deftest make-sequence.37
255      (make-sequence 'bit-vector 5 :initial-element 0)
256      #*00000)
257    
258    (deftest make-sequence.38
259      (make-sequence 'bit-vector 7 :initial-element 1)
260      #*1111111)
261    
262    (deftest make-sequence.39
263      (make-sequence 'bit-vector 0)
264      #*)
265    
266    (deftest make-sequence.40
267      (make-sequence '(bit-vector) 4 :initial-element 1)
268      #*1111)
269    
270    (deftest make-sequence.41
271      (make-sequence '(bit-vector *) 10 :initial-element 0)
272      #*0000000000)
273    
274    (deftest make-sequence.42
275      (make-sequence '(bit-vector 5) 5 :initial-element 0)
276      #*00000)
277    
278    (deftest make-sequence.43
279      (make-sequence 'simple-bit-vector 5 :initial-element 0)
280      #*00000)
281    
282    (deftest make-sequence.44
283      (make-sequence 'simple-bit-vector 7 :initial-element 1)
284      #*1111111)
285    
286    (deftest make-sequence.45
287      (make-sequence 'simple-bit-vector 0)
288      #*)
289    
290    (deftest make-sequence.46
291      (make-sequence '(simple-bit-vector) 4 :initial-element 1)
292      #*1111)
293    
294    (deftest make-sequence.47
295      (make-sequence '(simple-bit-vector *) 10 :initial-element 0)
296      #*0000000000)
297    
298    (deftest make-sequence.48
299      (make-sequence '(simple-bit-vector 5) 5 :initial-element 0)
300      #*00000)
301    
302  ;;; Keyword tests  ;;; Keyword tests
303    
304  (deftest make-sequence.allow-other-keys.1  (deftest make-sequence.allow-other-keys.1

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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