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

cleanup: remove dead code block

Browse source 
if x length is < 5, reader will signal an error, so it will never be
equal 2. Probably a leftover from some previous bytecodes
implementation state.
This commit is contained in:
Daniel Kochmanski 2017-10-09 22:51:52 +02:00
parent 9ba7440782
commit 835e85bc99
1 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/c/read.d
View file

@ -716,18 +716,9 @@ sharp_Y_reader(cl_object in, cl_object c, cl_object d)
if (read_suppress) {
@(return ECL_NIL);
}
unlikely_if (!ECL_CONSP(x) || ecl_length(x) < 5) {
FEreader_error("Reader macro #Y should be followed by a list",
in, 0);
}
if (ecl_length(x) == 2) {
rv = ecl_alloc_object(t_bclosure);
rv->bclosure.code = ECL_CONS_CAR(x);
x = ECL_CONS_CDR(x);
rv->bclosure.lex = ECL_CONS_CAR(x);
rv->bclosure.entry = _ecl_bclosure_dispatch_vararg;
@(return rv);
unlikely_if (!ECL_CONSP(x) || ecl_length(x) < 5) {
FEreader_error("Reader macro #Y should be followed by a list", in, 0);
}
rv = ecl_alloc_object(t_bytecodes);