From 575cc64a7b00d820e4f3cab4cb617b0b51b18f97 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 24 Mar 2005 13:53:32 +0000
Subject: [PATCH] Test added for ASH in OpenMCL 0.14.3

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 60bca4bd..c0dff57d 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10671,3 +10671,21 @@ Broken at C::WT-MAKE-CLOSURE.
 	   0)))
    2212755 3154856)
   0)
+
+;;; OpenMCL 0.14.3
+;;; 28192897: value doesn't match constraint :U8CONST in template for CCL::MATCH-VREG
+
+(deftest misc.594
+  (funcall
+   (compile
+    nil
+    '(lambda (a b c)
+       (declare (ignorable a b c))
+       (declare (type (integer -1 0) a)
+		(type (integer -1065019672 -181184465) b)
+		(type (integer 30074 1948824693) c))
+       (declare (optimize (safety 2) (compilation-speed 1) (speed 2)
+			  (space 0) (debug 0)))
+       (ash c (min 82 -28192897))))
+   0 -714979492 1474663829)
+  0)
-- 
GitLab