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