X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fvm.lisp;h=94c5c8bd8357ef952cdcbdf44452c6c54506b738;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=8f0965102ad3f5a0718778fbc1e9de035b5c61a7;hpb=2716573f357f204c5f546d1d34d285dd24ff43a1;p=sbcl.git

diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp
index 8f09651..94c5c8b 100644
--- a/src/compiler/x86/vm.lisp
+++ b/src/compiler/x86/vm.lisp
@@ -137,8 +137,6 @@
 	  (forms `(define-storage-class ,sc-name ,index
 		    ,@(cdr class)))
 	  (forms `(defconstant ,constant-name ,index))
-	  (forms `(let ((sb!int::*rogue-export* "DEFINE-STORAGE-CLASSES"))
-		    (export ',constant-name)))
 	  (incf index))))
     `(progn
        ,@(forms))))
@@ -378,7 +376,7 @@
 ;;;
 ;;; If value can be represented as an immediate constant, then return
 ;;; the appropriate SC number, otherwise return NIL.
-(def-vm-support-routine immediate-constant-sc (value)
+(!def-vm-support-routine immediate-constant-sc (value)
   (typecase value
     ((or fixnum #-sb-xc-host system-area-pointer character)
      (sc-number-or-lose 'immediate))
@@ -425,7 +423,7 @@
 
 ;;; This function is called by debug output routines that want a pretty name
 ;;; for a TN's location. It returns a thing that can be printed with PRINC.
-(def-vm-support-routine location-print-name (tn)
+(!def-vm-support-routine location-print-name (tn)
   (declare (type tn tn))
   (let* ((sc (tn-sc tn))
 	 (sb (sb-name (sc-sb sc)))