From 9b8b8c97df49450b5e49bfebceb24489701110df Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 28 Jun 2005 14:18:28 +0000 Subject: [PATCH] Sporadic lispworks failure --- ansi-tests/misc.lsp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 3b002fed..ffecce9b 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10787,3 +10787,11 @@ Broken at C::WT-MAKE-CLOSURE. (compilation-speed 2) (speed 3))) (logeqv 0 (gcd 0))))) -1) + +;;; Lispworks 4450 +;;; Show sporadic bugs in compiled code + +(deftest misc.602 + (let ((form '(lambda () (if (oddp (progn (vector) 3747237)) 'a nil)))) + (loop repeat 10 collect (funcall (compile nil form)))) + (a a a a a a a a a a)) -- GitLab