X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fearly-assem.lisp;h=13e756ad27b72cbec01e2233c21fb0ae9a5ed83c;hb=27b8aecceb0faecf64fcc8b90392373461b01c30;hp=39b33ffb55b878b0be49871b686514df5dbb3a4b;hpb=4f64f131a7bca59d0dc8be9e74d05a7645f27e67;p=sbcl.git

diff --git a/src/compiler/early-assem.lisp b/src/compiler/early-assem.lisp
index 39b33ff..13e756a 100644
--- a/src/compiler/early-assem.lisp
+++ b/src/compiler/early-assem.lisp
@@ -28,8 +28,8 @@
 ;;; ASSEMBLY-UNIT-BITS -- the number of bits in the minimum assembly
 ;;; unit, (also referred to as a ``byte''). Hopefully, different
 ;;; instruction sets won't require changing this.
-(defconstant assembly-unit-bits 8)
-(defconstant assembly-unit-mask (1- (ash 1 assembly-unit-bits)))
+(def!constant assembly-unit-bits 8)
+(def!constant assembly-unit-mask (1- (ash 1 assembly-unit-bits)))
 
 (deftype assembly-unit ()
   `(unsigned-byte ,assembly-unit-bits))
@@ -45,7 +45,7 @@
 ;;; the maximum alignment we can guarantee given the object format. If
 ;;; the loader only loads objects 8-byte aligned, we can't do any
 ;;; better then that ourselves.
-(defconstant max-alignment 3)
+(def!constant max-alignment 3)
 
 (deftype alignment ()
   `(integer 0 ,max-alignment))