0.7.3.18:

[sbcl.git] / src / compiler / x86 / insts.lisp

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index e64d650..759a8fb 100644 (file)
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -20,7 +20,7 @@
 
 (deftype reg () '(unsigned-byte 3))
 
-(defconstant +default-operand-size+ :dword)
+(def!constant +default-operand-size+ :dword)
 \f
 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
 
@@ -793,7 +793,7 @@
 \f
 ;;;; utilities
 
-(defconstant +operand-size-prefix-byte+ #b01100110)
+(def!constant +operand-size-prefix-byte+ #b01100110)
 
 (defun maybe-emit-operand-size-prefix (segment size)
   (unless (or (eq size :byte) (eq size +default-operand-size+))