Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -158,8 +158,7 @@ ...@@ -158,8 +158,7 @@
for c2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0) for c2 in '(-0.0s0 -0.0f0 -0.0d0 -0.0l0)
for sx1 = (sxhash c1) for sx1 = (sxhash c1)
for sx2 = (sxhash c2) for sx2 = (sxhash c2)
unless (or (not (typep c1 (type-of c2))) unless (or (not (equal (type-of c1) (type-of c2)))
(not (typep c2 (type-of c1)))
(eql sx1 sx2)) (eql sx1 sx2))
collect (list c1 c2 sx1 sx2)) collect (list c1 c2 sx1 sx2))
nil) nil)
...@@ -171,8 +170,7 @@ ...@@ -171,8 +170,7 @@
for c2 = (complex r2) for c2 = (complex r2)
for sx1 = (sxhash c1) for sx1 = (sxhash c1)
for sx2 = (sxhash c2) for sx2 = (sxhash c2)
unless (or (not (typep c1 (type-of c2))) unless (or (not (equal (type-of c1) (type-of c2)))
(not (typep c2 (type-of c1)))
(eql sx1 sx2)) (eql sx1 sx2))
collect (list c1 c2 sx1 sx2)) collect (list c1 c2 sx1 sx2))
nil) nil)
...@@ -184,8 +182,7 @@ ...@@ -184,8 +182,7 @@
for c2 = (complex 0 r2) for c2 = (complex 0 r2)
for sx1 = (sxhash c1) for sx1 = (sxhash c1)
for sx2 = (sxhash c2) for sx2 = (sxhash c2)
unless (or (not (typep c1 (type-of c2))) unless (or (not (equal (type-of c1) (type-of c2)))
(not (typep c2 (type-of c1)))
(eql sx1 sx2)) (eql sx1 sx2))
collect (list c1 c2 sx1 sx2)) collect (list c1 c2 sx1 sx2))
nil) nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment