diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp index 64dde03e1ee53046f18d663240a07dc317911239..42cff92c571a0f0e326903f86b9495906329d07a 100644 --- a/ansi-tests/make-sequence.lsp +++ b/ansi-tests/make-sequence.lsp @@ -249,6 +249,56 @@ (make-sequence '(vector * *) 10 :initial-element nil) #(nil nil nil nil nil nil nil nil nil nil)) +;;; Bit vectors + +(deftest make-sequence.37 + (make-sequence 'bit-vector 5 :initial-element 0) + #*00000) + +(deftest make-sequence.38 + (make-sequence 'bit-vector 7 :initial-element 1) + #*1111111) + +(deftest make-sequence.39 + (make-sequence 'bit-vector 0) + #*) + +(deftest make-sequence.40 + (make-sequence '(bit-vector) 4 :initial-element 1) + #*1111) + +(deftest make-sequence.41 + (make-sequence '(bit-vector *) 10 :initial-element 0) + #*0000000000) + +(deftest make-sequence.42 + (make-sequence '(bit-vector 5) 5 :initial-element 0) + #*00000) + +(deftest make-sequence.43 + (make-sequence 'simple-bit-vector 5 :initial-element 0) + #*00000) + +(deftest make-sequence.44 + (make-sequence 'simple-bit-vector 7 :initial-element 1) + #*1111111) + +(deftest make-sequence.45 + (make-sequence 'simple-bit-vector 0) + #*) + +(deftest make-sequence.46 + (make-sequence '(simple-bit-vector) 4 :initial-element 1) + #*1111) + +(deftest make-sequence.47 + (make-sequence '(simple-bit-vector *) 10 :initial-element 0) + #*0000000000) + +(deftest make-sequence.48 + (make-sequence '(simple-bit-vector 5) 5 :initial-element 0) + #*00000) + ;;; Keyword tests (deftest make-sequence.allow-other-keys.1