diff --git a/crossbuild-runner/backends/x86-64/features b/crossbuild-runner/backends/x86-64/features index 0db23c23e..2409d99e8 100644 --- a/crossbuild-runner/backends/x86-64/features +++ b/crossbuild-runner/backends/x86-64/features @@ -10,7 +10,6 @@ :fp-and-pc-standard-save :alien-callbacks :cycle-counter -:integer-eql-vop :undefined-fun-restarts :call-symbol :executable-funinstances diff --git a/src/code/pred.lisp b/src/code/pred.lisp index 7563c18d8..604fcc5bc 100644 --- a/src/code/pred.lisp +++ b/src/code/pred.lisp @@ -263,8 +263,10 @@ #+long-float (long-float eql) (bignum - #-integer-eql-vop (lambda (x y) (zerop (bignum-compare x y))) - #+integer-eql-vop eql) ; will become %eql/integer + (lambda (x y) + (sb-c::if-vop-existsp (:named sb-vm::%eql/integer) + (eql x y) + (zerop (bignum-compare x y))))) (ratio (lambda (x y) (and (eql (numerator x) (numerator y))