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

streams: fix a braino in str_in_unread_char

Browse source 
We've tested a wrong variable so this function allowed us to plum into negative
indexes.
This commit is contained in:
Daniel Kochmański 2025-07-23 15:54:40 +02:00
parent 407fe456fe
commit e98e36dfca
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/streams/strm_string.d
View file

@ -219,7 +219,7 @@ static void
str_in_unread_char(cl_object strm, ecl_character c)
{
cl_fixnum curr_pos = STRING_INPUT_POSITION(strm);
unlikely_if (c <= 0) {
unlikely_if (curr_pos <= 0) {
ecl_unread_error(strm);
}
STRING_INPUT_POSITION(strm) = curr_pos - 1;