From 80e11fc5962e41a28ba8c4630b85db3609a5aa09 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 28 Feb 2005 04:53:31 +0000
Subject: [PATCH] Test from OpenMCL (complex rationals)

---
 ansi-tests/misc.lsp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index aad9e85a..a26ab148 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10056,3 +10056,12 @@ Broken at C::WT-MAKE-CLOSURE.
 	   (sqrt p1)))
 	 n))))
   t)
+
+;;; OpenMCL
+;;; 1/2 is not of type integer
+
+(deftest misc.545
+  (let ((x #c(-1 1/2)))
+    (declare (type (eql #c(-1 1/2)) x))
+    x)
+  #c(-1 1/2))
-- 
GitLab