Commit 114cd482 authored by pfdietz's avatar pfdietz
Browse files

Make it use subtypep instead

parent aa6c0e8f

ansi-tests/sxhash.lsp

+12 −3
Original line number Diff line number Diff line
@@ -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)