(sb!xc:deftype simple-bit-vector (&optional size)
`(simple-array bit (,size)))
\f
(sb!xc:deftype simple-bit-vector (&optional size)
`(simple-array bit (,size)))
\f
;;; a consed sequence result. If a vector, is a simple array.
(sb!xc:deftype consed-sequence () '(or list (simple-array * (*))))
;;; a consed sequence result. If a vector, is a simple array.
(sb!xc:deftype consed-sequence () '(or list (simple-array * (*))))
`(integer 0 (,(ash 1 sb!vm:single-float-digits))))
(sb!xc:deftype double-float-significand ()
`(integer 0 (,(ash 1 sb!vm:double-float-digits))))
`(integer 0 (,(ash 1 sb!vm:single-float-digits))))
(sb!xc:deftype double-float-significand ()
`(integer 0 (,(ash 1 sb!vm:double-float-digits))))