diff --git a/ansi-tests/decf.lsp b/ansi-tests/decf.lsp index 03093b3505727460cd2af4ecea6f8ab7ad710d7e..7395bf5bba417f36e941fcccb635cb887b9ee3ae 100644 --- a/ansi-tests/decf.lsp +++ b/ansi-tests/decf.lsp @@ -139,7 +139,7 @@ (deftest decf.21 (let ((x 1)) - (values (decf x #c(0.0d0 -2.0l0)) x)) + (values (decf x #c(0.0l0 -2.0l0)) x)) #c(1.0l0 2.0l0) #c(1.0l0 2.0l0)) (deftest decf.order.2 diff --git a/ansi-tests/incf.lsp b/ansi-tests/incf.lsp index c5efd343ec0e0141e7a97be7356faea4122caeb8..c024d18a6f7b8cbb77e26a0ca1bf5bdeec89b8c0 100644 --- a/ansi-tests/incf.lsp +++ b/ansi-tests/incf.lsp @@ -139,7 +139,7 @@ (deftest incf.21 (let ((x 1)) - (values (incf x #c(0.0d0 -2.0l0)) x)) + (values (incf x #c(0.0l0 -2.0l0)) x)) #c(1.0l0 -2.0l0) #c(1.0l0 -2.0l0)) (deftest incf.order.2