diff --git a/ansi-tests/misc-cmucl-type-prop.lsp b/ansi-tests/misc-cmucl-type-prop.lsp index d30c2c128ec960020a1dab52cfb4f5e1ed943d13..48016b5baae9dca82f8b7797d4c9a1223f3b6b04 100644 --- a/ansi-tests/misc-cmucl-type-prop.lsp +++ b/ansi-tests/misc-cmucl-type-prop.lsp @@ -246,7 +246,7 @@ (declare (optimize (speed 2) (safety 3) (debug 3) (space 3)) (type (rational -1255531/68466 4) p1)) (+ p1 41888.98682005542d0))) - -1255531/6846) + -1255531/68466) 'double-float)) t)