mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-03-10 07:00:20 -07:00
reader: ensure the correct function arity
We've used void_reader as an implementation for sharp_{plus,minus}_reader -
sharp readers accept three arguments while void_reader accepted two.
- introduce void_reader3
- change sharp_{plus,minus}_reader to use void_reader3
- remove unused defines (leftovers from the past)
- remove unused void_reader (with two arguments)
This commit is contained in:
parent
4366fac6ad
commit
f948001dee
1 changed files with 3 additions and 9 deletions
12
src/c/read.d
12
src/c/read.d
|
|
@ -615,7 +615,7 @@ single_quote_reader(cl_object in, cl_object c)
|
|||
}
|
||||
|
||||
static cl_object
|
||||
void_reader(cl_object in, cl_object c)
|
||||
void_reader3(cl_object in, cl_object c, cl_object f)
|
||||
{
|
||||
/* no result */
|
||||
@(return);
|
||||
|
|
@ -1101,9 +1101,6 @@ sharp_R_reader(cl_object in, cl_object c, cl_object d)
|
|||
@(return (read_number(in, radix, ECL_CODE_CHAR('R'))));
|
||||
}
|
||||
|
||||
#define sharp_A_reader void_reader
|
||||
#define sharp_S_reader void_reader
|
||||
|
||||
static cl_object
|
||||
sharp_eq_reader(cl_object in, cl_object c, cl_object d)
|
||||
{
|
||||
|
|
@ -1281,11 +1278,8 @@ patch_sharp(const cl_env_ptr the_env, cl_object x)
|
|||
}
|
||||
}
|
||||
|
||||
#define sharp_plus_reader void_reader
|
||||
#define sharp_minus_reader void_reader
|
||||
#define sharp_less_than_reader void_reader
|
||||
#define sharp_whitespace_reader void_reader
|
||||
#define sharp_right_parenthesis_reader void_reader
|
||||
#define sharp_plus_reader void_reader3
|
||||
#define sharp_minus_reader void_reader3
|
||||
|
||||
static cl_object
|
||||
sharp_vertical_bar_reader(cl_object in, cl_object ch, cl_object d)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue