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