X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdfo.lisp;h=291a1cbd88734843caa43453d9eb703d826484ff;hb=24466b987096dd6ec63067b1531367308f199c99;hp=65134b19c8207ff367e214ce5b224cd60e50be0f;hpb=12bd68a3ff68b4e06cfb8c441383b6e898d2ed78;p=sbcl.git diff --git a/src/compiler/dfo.lisp b/src/compiler/dfo.lisp index 65134b1..291a1cb 100644 --- a/src/compiler/dfo.lisp +++ b/src/compiler/dfo.lisp @@ -59,7 +59,7 @@ (unless (eq old-next old-tail) (setf (block-next head) old-next) (setf (block-prev old-next) head) - + (setf (block-prev next) old-last) (setf (block-next old-last) next))