Basically, sb-kernel:the* allows for additional options so that (sb-kernel:the* (fixnum :use-annotations t) 5) is valid while (cl:the (fixnum :use-annotations t) 5) is not.
EDIT: Or, again, I'm not sure if this should be handled here or within polymorphic-functions::macroexpand-all
EDIT-2: This holds:
CL-USER> (macroexpand-1 `(sb-kernel:the* (fixnum :use-annotations t) a))
(THE FIXNUM A)
T
https://github.com/alex-gutev/cl-form-types/blob/0e2ba279f99264c3e20f78ee49d9764f47a19de8/src/walker.lisp#L583-L588
Basically,
sb-kernel:the*
allows for additional options so that(sb-kernel:the* (fixnum :use-annotations t) 5)
is valid while(cl:the (fixnum :use-annotations t) 5)
is not.EDIT: Or, again, I'm not sure if this should be handled here or within
polymorphic-functions::macroexpand-all
EDIT-2: This holds: