X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=0733b25d40833e0eefa126fcb96b8e66bc1d428f;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=fbf4fd9fb682589b853cce3289d65435ce0a4327;hpb=ec2616d216958a608581802c47496c0194478dc8;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index fbf4fd9..0733b25 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -96,7 +96,7 @@
 ;;; Note: This bound is set somewhat less than MOST-POSITIVE-FIXNUM
 ;;; in order to guarantee that several hash values can be added without
 ;;; overflowing into a bignum.
-(defconstant layout-clos-hash-max (ash most-positive-fixnum -3)
+(def!constant layout-clos-hash-max (ash most-positive-fixnum -3)
   #!+sb-doc
   "the inclusive upper bound on LAYOUT-CLOS-HASH values")
 
@@ -233,7 +233,7 @@
 
 ;;;; support for the hash values used by CLOS when working with LAYOUTs
 
-(defconstant layout-clos-hash-length 8)
+(def!constant layout-clos-hash-length 8)
 #!-sb-fluid (declaim (inline layout-clos-hash))
 (defun layout-clos-hash (layout i)
   ;; FIXME: Either this I should be declared to be `(MOD
@@ -1231,7 +1231,7 @@
 		    (if (eq name t)
 		      nil
 		      (mapcar #'sb!xc:find-class direct-superclasses)))))
-	(setf (info :type :kind name) :primitive
+	(setf (info :type :kind name) #+sb-xc-host :defined #-sb-xc-host :primitive
 	      (class-cell-class (find-class-cell name)) class)
 	(unless trans-p
 	  (setf (info :type :builtin name) class))