X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-macs.lisp;h=072ae89c9dd912c4bd46a9c781dc4b6e3ea9b6fd;hb=77360ee4a1f94c41b807be7ad0e8687199fceef1;hp=0d50cf4477f72ff035c7730b9063065826854fe2;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index 0d50cf4..072ae89 100644
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -117,8 +117,6 @@
 	(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