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