From aa6c0e8f3d0257a269ea5a60fbe0409767a941e3 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 13 May 2004 12:12:28 +0000
Subject: [PATCH] Make the 'of the same type?' test be if TYPE-OF returns the
 same type on the two values.

---
 ansi-tests/sxhash.lsp | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp
index 8155831e..2cbb1c52 100644
--- a/ansi-tests/sxhash.lsp
+++ b/ansi-tests/sxhash.lsp
@@ -158,8 +158,7 @@
 	for c2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (typep c1 (type-of c2)))
-		   (not (typep c2 (type-of c1)))
+	unless (or (not (equal (type-of c1) (type-of c2)))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
@@ -171,8 +170,7 @@
 	for c2 = (complex r2)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (typep c1 (type-of c2)))
-		   (not (typep c2 (type-of c1)))
+	unless (or (not (equal (type-of c1) (type-of c2)))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
@@ -184,8 +182,7 @@
 	for c2 = (complex 0 r2)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (typep c1 (type-of c2)))
-		   (not (typep c2 (type-of c1)))
+	unless (or (not (equal (type-of c1) (type-of c2)))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
-- 
GitLab