diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp index 2cbb1c5229096f15dde4e209eeb565653d67ab33..823424c9a282270990bee466bd2c04b989689ad4 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)