RUNEs and RODs are not compatible with the result
of (RUNES:RUNE), because that returns (STRING ...), and
(TYPE-OF "Σ") has CHARACTERS, but
(TYPE-OF "a") "only" BASE-CHARs ...
At least CLISP, ABCL, SBCL return the same value for both
TYPE-OF forms above.
c = ecl_read_char_noeof(in);
ecl_string_push_extend(token, c);
}
-#ifdef ECL_UNICODE
- if (ecl_fits_in_base_string(token))
- output = si_coerce_to_base_string(token);
- else
-#endif
- output = cl_copy_seq(token);
+
+ output = cl_copy_seq(token);
si_put_buffer_string(token);
@(return output)
}
Repositories / ecl.git / commitdiff