- (expt 2 33) (expt 2.0 33) (expt 2.0d0 33)
- (- (expt 1/2 50)) (- (expt 0.5 50)) (- (expt 0.5d0 50))
- (+ (expt 1/2 50)) (+ (expt 0.5 50)) (+ (expt 0.5d0 50))
-
- (complex 1.0 2.0) (complex 1.0d0 2.0)
- (complex 1.5 -3/2) (complex 1.5 -1.5d0)
-
- #\x #\X #\*))
- (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?