(sb!xc:deftype bit () '(integer 0 1))
-(sb!xc:deftype compiled-function () 'function)
-
(sb!xc:deftype atom () '(not cons))
(sb!xc:deftype base-char ()
(sb!xc:deftype char-code () `(integer 0 (,sb!xc:char-code-limit)))
;;; a consed sequence result. If a vector, is a simple array.
-(sb!xc:deftype consed-sequence () '(or list (simple-array * (*))))
+(sb!xc:deftype consed-sequence ()
+ '(or (simple-array * (*)) list extended-sequence))
;;; the :END arg to a sequence
(sb!xc:deftype sequence-end () '(or null index))