diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 195194284..ecb71d3e8 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -1790,6 +1790,13 @@ ;;; * ;;; +(with-test-prefix "*" + + (pass-if "complex * bignum" + (let ((big (ash 1 90))) + (= (make-rectangular big big) + (* 1+1i big))))) + ;;; ;;; / ;;;