diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index aad9e85a82ade0d2c19633ed26a0d5c1663e3227..a26ab148457368a7f4feba06cd007d2d6acc1c77 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10056,3 +10056,12 @@ Broken at C::WT-MAKE-CLOSURE. (sqrt p1))) n)))) t) + +;;; OpenMCL +;;; 1/2 is not of type integer + +(deftest misc.545 + (let ((x #c(-1 1/2))) + (declare (type (eql #c(-1 1/2)) x)) + x) + #c(-1 1/2))