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