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

Improve some error messages for functions of exactly one variable

Browse source 
This changes
  "the value of the first argument"
to
  "the value of the only argument"
in some type-error error messages for functions accepting exactly
one argument.
This commit is contained in:
Kris Katterjohn 2017-02-07 16:19:17 -06:00
parent 98969d14ff
commit 2c651a9ecd
5 changed files with 17 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/array.d
View file

@ -1052,7 +1052,7 @@ cl_array_has_fill_pointer_p(cl_object a)
r = ECL_ARRAY_HAS_FILL_POINTER_P(a)? ECL_T : ECL_NIL;
break;
default:
FEwrong_type_nth_arg(@[array-has-fill-pointer-p],1,a,@[array]);
FEwrong_type_only_arg(@[array-has-fill-pointer-p],a,@[array]);
}
ecl_return1(the_env, r);
}
@ -1065,7 +1065,7 @@ cl_fill_pointer(cl_object a)
FEwrong_type_only_arg(@[fill-pointer], a, @[vector]);
if (ecl_unlikely(!ECL_ARRAY_HAS_FILL_POINTER_P(a))) {
const char *type = "(AND VECTOR (SATISFIES ARRAY-HAS-FILL-POINTER-P))";
FEwrong_type_nth_arg(@[fill-pointer], 1, a, ecl_read_from_cstring(type));
FEwrong_type_only_arg(@[fill-pointer], a, ecl_read_from_cstring(type));
}
ecl_return1(the_env, ecl_make_fixnum(a->vector.fillp));
}