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

Restore commented out code.

Browse source
This commit is contained in:
Stas Boukarev 2019-11-10 17:56:12 +03:00
parent 3a1a19c526
commit bf5f0c8d80
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/srctran.lisp
View file

@ -3490,7 +3490,7 @@
((same-leaf-ref-p x y) t)
((not (types-equal-or-intersect (lvar-type x) (lvar-type y)))
nil)
;#+(vop-translates sb-kernel:%instance-ref-eq)
#+(vop-translates sb-kernel:%instance-ref-eq)
;; Reduce (eq (%instance-ref x i) Y) to 1 instruction
;; if possible, but do not defer the memory load unless doing
;; so can have no effect, i.e. Y is a constant or provably not