(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 thing legal in places where we want the name of a file
(sb!xc:deftype filename () '(or string pathname))
;;; a thing legal in places where we want the name of a file
(sb!xc:deftype filename () '(or string pathname))
;;; a thing returned by the irrational functions. We assume that they
;;; never compute a rational result.
;;; a thing returned by the irrational functions. We assume that they
;;; never compute a rational result.
;;; 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))))