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