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

Uncommenet accidentally commented out code

Browse source
This commit is contained in:
Stas Boukarev 2026-09-08 08:57:12 +03:00
parent 6531116f2b
commit fe75c79a88
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/compiler/macros.lisp
View file

@ -600,8 +600,7 @@
((and (eq (ctran-block next) ,n-block)
;; unlink-node only resets node-prev, not node-next
;; don't follow node-next if it's been just deleted.
;; (node-prev ,node-var)
)
(node-prev ,node-var))
(ctran-next next))
(t
(let ((start (block-start ,n-block)))