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

Fixed typo in set-syntax-from-char

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 22:57:24 +01:00
parent 6d09f08bbf
commit 574cfa0132
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/read.d
View file

@ -2003,8 +2003,8 @@ ecl_invalid_character_p(int c)
}
if (Null(fromrdtbl))
fromrdtbl = cl_core.standard_readtable;
assert_type_readtable(@'readtable-case', 1, tochr);
assert_type_readtable(@'readtable-case', 2, fromchr);
assert_type_readtable(@'readtable-case', 1, tordtbl);
assert_type_readtable(@'readtable-case', 2, fromrdtbl);
fc = ecl_char_code(fromchr);
tc = ecl_char_code(tochr);