diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 92ae7368ab5b99736a2239ba4228f02e254dd3ed..a27de15a7a4dcc238d3226ffaf49069bd5b0c41c 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)