X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Ftarget-insts.lisp;h=c761ee092a81a576536f9910f7f6faf99abbd556;hb=12b1dae1a1ed90c6ffe4d958f1281c1c04a8e89b;hp=b51b9f5af0e7f5f264a921403a54f8ba5ae08173;hpb=cd12bb346dbbd1e077ed3e14a9db4e1cc227c244;p=sbcl.git

diff --git a/src/compiler/x86/target-insts.lisp b/src/compiler/x86/target-insts.lisp
index b51b9f5..c761ee0 100644
--- a/src/compiler/x86/target-insts.lisp
+++ b/src/compiler/x86/target-insts.lisp
@@ -23,6 +23,7 @@
   (when print-size-p
     (princ (inst-operand-size dstate) stream)
     (princ '| PTR | stream))
+  (maybe-print-segment-override stream dstate)
   (write-char #\[ stream)
   (let ((firstp t))
     (macrolet ((pel ((var val) &body body)