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

Fixed two typos in ecl_to_int32_t()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-04-02 14:49:39 +02:00
parent 4359ec5e38
commit 1b558faa95
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/number.d
View file

@ -200,8 +200,8 @@ ecl_to_int32_t(cl_object x) {
do {
if (FIXNUMP(x)) {
cl_fixnum y = fix(x);
if (y >= -0x80000000 && y <= 0x7FFFFFFFL) {
return (ecl_int16_t)y;
if (y >= -0x80000000L && y <= 0x7FFFFFFFL) {
return (ecl_int32_t)y;
}
}
x = ecl_type_error(@'coerce', "variable", x,