((VECTOR SIMPLE-VECTOR #+unicode SIMPLE-BASE-STRING SIMPLE-STRING #+unicode BASE-STRING STRING BIT-VECTOR SIMPLE-BIT-VECTOR)

            (concatenate type object))

           (t

                (concatenate type object)

                (error-coerce object type)))))

        ((eq (setq aux (first type)) 'COMPLEX)

         (unless (typep aux type)

           (error-coerce object type))

         aux)

         (concatenate type object))

        (t

         (error-coerce object type))))