From 809a601386d8026f8151cb0e1ae320497b899887 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 8 Feb 2004 21:44:35 +0000
Subject: [PATCH] Fixed two test typos.

---
 ansi-tests/decf.lsp | 2 +-
 ansi-tests/incf.lsp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/decf.lsp b/ansi-tests/decf.lsp
index 03093b35..7395bf5b 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 c5efd343..c024d18a 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
-- 
GitLab