mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-08 22:30:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

reader: fix a bug in SET-SYNTAX-FROM-CHAR

Browse source 
The regrssion test was added as mix.0036.reader.false-sharing.
This commit is contained in:
Daniel Kochmański 2026-03-06 18:58:54 +01:00
parent ae92d13562
commit 6011067359
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/read.d
View file

@ -1921,7 +1921,7 @@ ecl_invalid_character_p(int c)
tc = ecl_char_code(tochr);
cat = ecl_readtable_get(fromrdtbl, fc, &dispatch);
if (ECL_READTABLEP(dispatch)) {
if (ECL_HASH_TABLE_P(dispatch)) {
dispatch = si_copy_hash_table(dispatch);
}
ecl_readtable_set(tordtbl, tc, cat, dispatch);