mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 21:41:29 -08:00
Code Issues Projects Releases Packages Wiki Activity

expt: add a case for complex-float ^ integer.

Browse source 
Lack of this switch branch lead to unrecoverable error. Fixes #547.
This commit is contained in:
Daniel Kochmański 2019-12-30 22:00:14 +01:00
parent 78138b65dc
commit bbd3c2d6d0
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -202,6 +202,12 @@ ecl_expt(cl_object x, cl_object y)
case t_doublefloat:
case t_singlefloat:
return ecl_expt_float(x, y);
#ifdef ECL_COMPLEX_FLOAT
case t_clfloat:
case t_cdfloat:
case t_csfloat:
return ecl_expt_complex_float(x, y);
#endif
default:
ecl_internal_error("expt: unhandled switch branch.");
}

2
src/tests/normal-tests/complex.lsp
View file

@ -298,5 +298,5 @@
;;
;; (EXPT #C(1.0 0.0) 2) causes unrecoverable error.
;;
(test.csfloat.0010.issue-547
(test csfloat.0010.issue-547
(finishes (expt #c(1.0 0.0) 2))))