| commit | a9d69aba79fde8125d0c25d4560e5e0dd9158d42 | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Tue, 30 Apr 2024 08:24:32 +0000 (30 11:24 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Tue, 30 Apr 2024 08:24:32 +0000 (30 11:24 +0300) | ||
| tree | e724a091eef9fe6ba2d0f9a68e19dadc0b5eae64 | treesnapshot (tar.gz zip) |
| parent | be2825409d4d213cecb55608dbc72c3a9a82e154 | commitdiff |
Don't lose lvar-types for some VOPs.
(when (typep y '(or fixnum null))
(rplaca x y))
was issuing gengc-barriers because of that.
(when (typep y '(or fixnum null))
(rplaca x y))
was issuing gengc-barriers because of that.
| src/compiler/generic/vm-ir2tran.lisp | diffblobblamehistory | |
| src/compiler/meta-vmdef.lisp | diffblobblamehistory |