From 2c7f734de089d5ac22f2f9fad23f5e3c10eebd63 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 16 Apr 2005 21:33:19 +0000
Subject: [PATCH] Added another OpenMCL test

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 92ae7368..a27de15a 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10724,3 +10724,14 @@ Broken at C::WT-MAKE-CLOSURE.
   t)
 
 
+;;; OpenMCL
+;;; Incorrect value
+
+(deftest misc.597
+  (funcall (compile nil '(lambda (c)
+			   (declare (optimize (sped 1) (compilation-speed 2)
+					      (space 1) (debug 1) (safety 2)))
+			   (declare (type (integer 1 41) c))
+			   (logxor -1 c)))
+	   8)
+  -9)
-- 
GitLab