X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=514f11698c2beed00de199de7be6a198f14fafdc;hb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;hp=9febabbab8c69c53897e56beea0a01ed7bbd2819;hpb=0118ad1a3d67833723c6c237e99dbc55ec9f02ca;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index 9febabb..514f116 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -286,7 +286,7 @@
   :printer #'print-word-reg/mem)
 
 ;;; added by jrd
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
 (defun print-fp-reg (value stream dstate)
   (declare (ignore dstate))
   (format stream "FR~D" value))