From 97ccff1801ac7d7b39110e49103ea73dc7ad11b3 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 16 Mar 2005 12:18:48 +0000
Subject: [PATCH] Fixed typo in cmucl-type-prop.20

---
 ansi-tests/misc-cmucl-type-prop.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/misc-cmucl-type-prop.lsp b/ansi-tests/misc-cmucl-type-prop.lsp
index d30c2c12..48016b5b 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)
 
-- 
GitLab