From 114cd48269179ba9cd01c143d605b477ca3a7be3 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 13 May 2004 12:18:00 +0000
Subject: [PATCH] Make it use subtypep instead

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

diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp
index 2cbb1c52..823424c9 100644
--- a/ansi-tests/sxhash.lsp
+++ b/ansi-tests/sxhash.lsp
@@ -156,9 +156,12 @@
 (deftest sxhash.17
   (loop for c1 in '(0.0s0 0.0f0 0.0d0 0.0l0)
 	for c2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0)
+	for t1 = (type-of c1)
+	for t2 = (type-of c2)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (equal (type-of c1) (type-of c2)))
+	unless (or (not (subtypep t1 t2))
+		   (not (subtypep t2 t1))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
@@ -168,9 +171,12 @@
 	for c1 = (complex r1)
 	for r2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0)
 	for c2 = (complex r2)
+	for t1 = (type-of c1)
+	for t2 = (type-of c2)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (equal (type-of c1) (type-of c2)))
+	unless (or (not (subtypep t1 t2))
+		   (not (subtypep t2 t1))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
@@ -180,9 +186,12 @@
 	for c1 = (complex 0 r1)
 	for r2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0)
 	for c2 = (complex 0 r2)
+	for t1 = (type-of c1)
+	for t2 = (type-of c2)
 	for sx1 = (sxhash c1)
 	for sx2 = (sxhash c2)
-	unless (or (not (equal (type-of c1) (type-of c2)))
+	unless (or (not (subtypep t1 t2))
+		   (not (subtypep t2 t1))
 		   (eql sx1 sx2))
 	collect (list c1 c2 sx1 sx2))
   nil)
-- 
GitLab