0001-assembler-Make-sure-to-process-all-back-patches.diff

From a07ad9d65805c63e33e5376c9cda97d6962b8900 Mon Sep 17 00:00:00 2001
From: death <death@adeht.org>
Date: Sun, 10 Dec 2017 04:55:15 +0200
Subject: [PATCH] assembler: Make sure to process all back-patches

---
 src/compiler/assem.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 467ee1647..540735591 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1139,7 +1139,8 @@
                      (if tail
                          (setf (cdr tail) next)
                          (setf (segment-annotations segment) next)))
-                   (setf next (cdr prev))))))
+                   (when prev
+                     (setf next (cdr prev)))))))
         (cond ((back-patch-p note)
                (fill-in (back-patch-fun note)
                         (back-patch-size note)))
-- 
2.15.1