X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=e89b02cc36821e78640d5019c7d44c26297aa92d;hb=5ecef987f3847ed5de8c03f66ef9d8ab468af993;hp=cb8c4761307cc972050e5ab19e08f720c775c18e;hpb=9f71619d17025cc309fefaeac51107ffa8ed5ee4;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index cb8c476..e89b02c 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -530,6 +530,7 @@
 		 (cond ((null inst)
 			(handle-bogus-instruction stream dstate))
 		       (t
+                        (setf (dstate-inst-properties dstate) nil)
 			(setf (dstate-next-offs dstate)
 			      (+ (dstate-cur-offs dstate)
 				 (inst-length inst)))