diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 3b002fede728e40725257bc50b7574c0bf209786..ffecce9b32b683ea85fa418d3474487a4c6c01fb 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))