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

reader: cosmetic change

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-05 14:30:55 +01:00
parent 27fb51b98f
commit c5cf707dfe
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/reader.d
View file

@ -123,13 +123,8 @@ dispatch_macro_character(cl_object table, cl_object in, int c, bool signal_error
cl_object dc = ECL_CODE_CHAR(c);
cl_object fun = ecl_gethash_safe(dc, table, ECL_NIL);
unlikely_if (Null(fun)) {
if (signal_error) {
FEreader_error("No dispatch function defined "
"for character ~S",
in, 1, dc);
} else {
return OBJNULL;
}
if (!signal_error) return OBJNULL;
FEreader_error("No dispatch function defined for character ~S", in, 1, dc);
}
return _ecl_funcall4(fun, in, dc, arg);
}