From 65ea251e5bfa4a5aabb797e922c4a7a9f799e33d Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 18 Jul 2003 00:01:55 +0000
Subject: [PATCH] (*): Add complex/bignum test.

---
 test-suite/tests/numbers.test | 7 +++++++
 1 file changed, 7 insertions(+)

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)))))
+
 ;;;
 ;;; /
 ;;;