From 961b962e32010f82bf613c0a72d8490738882b4b Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Mon, 17 Jul 2017 10:00:59 -0400 Subject: [PATCH] Show disassembly annotations in same order they're produced --- src/compiler/target-disassem.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp index 181edb75f..9e26a0051 100644 --- a/src/compiler/target-disassem.lisp +++ b/src/compiler/target-disassem.lisp @@ -1859,7 +1859,7 @@ (defun note (note dstate) (declare (type (or string function) note) (type disassem-state dstate)) - (push note (dstate-notes dstate))) + (setf (dstate-notes dstate) (nconc (dstate-notes dstate) (list note)))) (defun prin1-short (thing stream) (with-print-restrictions -- 2.11.4.GIT