Commit 9b8b8c97 authored by pfdietz's avatar pfdietz
Browse files

Sporadic lispworks failure

parent ac295d84
......@@ -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))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment