diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 40e2298c044a723f01f6aedcc497901486d0362a..95b6790f31bafaf2b26109c6ac229f1b18dad53a 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -877,3 +877,12 @@ (apply (compile nil form2) vals))) t) +;;; sbcl/cmucl bug (on sparc) +(deftest misc.67 + (funcall + (compile nil '(lambda (x) + (declare (type (integer 10604862 10604862) x) + (optimize speed)) + (* x 390))) + 10604862) + 4135896180)