Index: /branches/watchpoints/compiler/X86/x86-disassemble.lisp
===================================================================
--- /branches/watchpoints/compiler/X86/x86-disassemble.lisp	(revision 12901)
+++ /branches/watchpoints/compiler/X86/x86-disassemble.lisp	(revision 12902)
@@ -2758,4 +2758,20 @@
       (out stream expr))))
 
+(defun x86-print-one-disassembled-instruction (ds instruction)
+  (dolist (p (x86-di-prefixes instruction))
+    (format t "~&  (~a)~%" p))
+  (format t "  (~a" (x86-di-mnemonic instruction))
+  (let* ((op0 (x86-di-op0 instruction))
+         (op1 (x86-di-op1 instruction))
+         (op2 (x86-di-op2 instruction)))
+    (when op0
+      (write-x86-lap-operand t op0 ds)
+      (when op1
+        (write-x86-lap-operand t op1 ds)
+        (when op2
+          (write-x86-lap-operand t op2 ds)))))
+  (format t ")")
+  (format t "~%"))
+
 (defvar *previous-source-note*)