(defun trace-instruction (segment vop inst args)
(let ((*standard-output* *compiler-trace-output*))
(unless (eq *prev-segment* segment)
(defun trace-instruction (segment vop inst args)
(let ((*standard-output* *compiler-trace-output*))
(unless (eq *prev-segment* segment)
(when *compiler-trace-output*
(format *compiler-trace-output*
"~|~%assembly code for ~S~2%"
(when *compiler-trace-output*
(format *compiler-trace-output*
"~|~%assembly code for ~S~2%"