common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Remove :integer-eql-vop feature, use vop-existsp instead.

Browse source
This commit is contained in:
Stas Boukarev 2023-09-05 06:53:26 +03:00
parent 5cec624f80
commit dd79dc37f6
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
crossbuild-runner/backends/x86-64/features
View file

@ -10,7 +10,6 @@
:fp-and-pc-standard-save
:alien-callbacks
:cycle-counter
:integer-eql-vop
:undefined-fun-restarts
:call-symbol
:executable-funinstances

6
src/code/pred.lisp
View file

@ -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))