X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-macs.lisp;h=dd5f2ea02629b22e5bfd1b1a6d88643ec2063cf4;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=86d3bcb00eeb51f360da1e9b96cd7158992a05bd;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index 86d3bcb..dd5f2ea 100644
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
-  "$Header$")
 
 ;;;; other miscellaneous stuff
 
@@ -110,18 +107,12 @@
 	  (incf offset length)))
       (unless variable-length
 	(let ((size (symbolicate name "-SIZE")))
-	  (constants `(defconstant ,size ,offset
-			,(format nil
-				 "Number of slots used by each ~S~
-				  ~@[~* including the header~]."
-				 name header)))
+	  (constants `(defconstant ,size ,offset))
 	  (exports size)))
       (when alloc-trans
 	(forms `(def-alloc ,alloc-trans ,offset ,variable-length ,header
 			   ,lowtag ',(inits))))
       `(progn
-	 (let ((sb!int::*rogue-export* "DEFINE-PRIMITIVE-OBJECT"))
-	   (export ',(exports)))
 	 (eval-when (:compile-toplevel :load-toplevel :execute)
 	   (%define-primitive-object
 	    ',(make-primitive-object :name name