mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 12:03:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Trying to fix closure-common.

Browse source 
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.
This commit is contained in:
Philipp Marek 2014-04-26 20:01:47 +02:00
parent 81373b1510
commit d2aa6f957e
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/read.d
View file

@ -536,12 +536,8 @@ double_quote_reader(cl_object in, cl_object c)
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)
}