- #'allocate-instance #'no-applicable-method))
- (make-psxhash-extra-subtests ()
- (list (copy-seq "")
- (copy-seq #*)
- (copy-seq #())
- (copy-seq ())
- (copy-seq '(()))
- (copy-seq #(()))
- (copy-seq '(#()))
- (make-array 3 :fill-pointer 0)
- (make-array 7 :fill-pointer 0 :element-type 'bit)
- (make-array 8 :fill-pointer 0 :element-type 'character)
- (vector (cons 1 0) (cons 0 0))
- (vector (cons 0 1) (cons 0 0))
- (vector (cons 0 0) (cons 1 0))
- (vector (cons 0 0) (cons 0 1))
- (vector (cons 1 0) (cons 0 0))
- (vector (cons 0 1) (cons 0 0))
- (vector (list 0 0) (cons 1 0))
- (vector (list 0 0) (list 0 1))
- (vector (vector 1 0) (list 0 0))
- (vector (vector 0 1) (list 0 0))
- (vector (vector 0 0) (list 1 0))
- (vector (vector 0 0) (list 0 1))
- (vector #*00 #*10)
- (vector (vector 0 0) (list 0 1.0d0))
- (vector (vector -0.0d0 0) (list 1.0 0))
- (vector 1 0 1 0)
- (vector 0 0 0)
- (copy-seq #*1010)
- (copy-seq #*000)
- (replace (make-array 101
- :element-type 'bit
- :fill-pointer 4)
- #*1010)
- (replace (make-array 14
- :element-type '(unsigned-byte 8)
- :fill-pointer 3)
- #*000)
- (replace (make-array 14
- :element-type t
- :fill-pointer 3)
- #*000)
- (copy-seq "abc")
- (copy-seq "ABC")
- (copy-seq "aBc")
- (copy-seq "abcc")
- (copy-seq "1001")
- 'abc
- (vector #\a #\b #\c)
- (vector 'a 'b 'c)
- (vector "A" 'b 'c)
- (replace (make-array 14
- :element-type 'character
- :fill-pointer 3)
- "aBc")
- (replace (make-array 11
- :element-type 'character
- :fill-pointer 4)
- "1001")
- (replace (make-array 12
- :element-type 'bit
- :fill-pointer 4)
- #*1001)
- (replace (make-array 13
- :element-type t
- :fill-pointer 4)
- "1001")
- (replace (make-array 13
- :element-type t
- :fill-pointer 4)
- #*1001)
- ;; FIXME: What about multi-dimensional arrays, hmm?
+ (copy-seq #*)
+ (copy-seq #*0) (copy-seq #*1)
+ (copy-seq #*00) (copy-seq #*10)
+ (copy-seq #*01) (copy-seq #*11)
+ (copy-seq #*10010) (copy-seq #*100101) (bit-not #*01101)
+ (make-array 6 :fill-pointer 6
+ :element-type 'bit :initial-contents #*100101)