X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fearly-objdef.lisp;h=e713b892f0dd6a95811369c0d40ff2aa86c72a9f;hb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;hp=be69981154de5a24f86d9fa8214f8933539ef784;hpb=feae2afb12449b318f83c0de6f4c53e5f28657c2;p=sbcl.git

diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp
index be69981..e713b89 100644
--- a/src/compiler/generic/early-objdef.lisp
+++ b/src/compiler/generic/early-objdef.lisp
@@ -42,9 +42,9 @@
 ;;; the heap types, stored in 8 bits of the header of an object on the
 ;;; heap, to identify the type of the heap object (which'll be at
 ;;; least two machine words, often more)
-(defenum (:suffix -type
-	  :start (+ (ash 1 lowtag-bits) other-immediate-0-lowtag)
-	  :step (ash 1 (1- lowtag-bits)))
+(defenum (:suffix -widetag
+	  :start (+ (ash 1 n-lowtag-bits) other-immediate-0-lowtag)
+	  :step (ash 1 (1- n-lowtag-bits)))
   bignum
   ratio
   single-float