Commit aa6c0e8f authored by pfdietz's avatar pfdietz
Browse files

Make the 'of the same type?' test be if TYPE-OF returns the same type on the two values.

parent 250e3912

ansi-tests/sxhash.lsp

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