[Sbcl-commits] master: Show disassembly annotations in same order they're produced

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  961b962e32010f82bf613c0a72d8490738882b4b (commit)
      from  03b38dc4ef65766bb69dbbf606525816924f871e (commit)

- Log -----------------------------------------------------------------
commit 961b962e32010f82bf613c0a72d8490738882b4b
Author: Douglas Katzman <do...@go...>
Date:   Mon Jul 17 10:00:59 2017 -0400

    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 181edb7..9e26a00 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

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL