Signal floating-point-overflow from bignum-to-float.

[sbcl.git] / tests / bad-code.impure.lisp

(load "compiler-test-util.lisp")

(with-test (:name :fop-compile-bad-macro)
  (assert (nth-value 1 (ctu:file-compile '((let () (do)))))))