Uncaught error from undefined intersection type for CONCATENATE

[Paul F. Dietz]

(lambda (x) (concatenate '(and string nonsense) x))

==>

The value
  #<SB-KERNEL:INTERSECTION-TYPE (AND NONSENSE
                                     (VECTOR CHARACTER))>

is not of type
  SB-KERNEL:ARRAY-TYPE
   [Condition of type TYPE-ERROR]
[...]
  0: (SB-C::VECTOR-SPECIFIER-WIDETAG #<SB-KERNEL:UNION-TYPE (OR (AND NONSENSE (VECTOR CHARACTER)) (AND NONSENSE (VECTOR NIL)) (AND NONSENSE BASE-STRING))>)
  1: ((SB-C:DEFTRANSFORM CONCATENATE) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME CONCATENATE :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND..
[...]

[Stas Boukarev (stassats)]

be2bf248116137f4b0e0c0cf6440a908cfa685c9