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

numbers: expt: add default clause to avoid compilation warnings

Browse source 
We simply call ecl_internal_error there.
This commit is contained in:
Daniel Kochmański 2019-05-23 15:09:29 +02:00
parent fcdb1b0657
commit 372d340fe1
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/numbers/expt.d
View file

@ -207,6 +207,8 @@ ecl_expt(cl_object x, cl_object y)
case t_doublefloat:
case t_singlefloat:
return ecl_expt_float(x, y);
default:
ecl_internal_error("expt: unhandled switch branch.");
}
}
if (ECL_COMPLEXP(y) || ECL_COMPLEXP(x) || ecl_minusp(x)) {