diff --git a/compiler/globals.lisp b/compiler/globals.lisp
index 71e8862be06debd8dd331ecf64b34f1e22af1f9a..cfb6a9bc42fec9d0c9359a2807583bfc723bc831 100644
--- a/compiler/globals.lisp
+++ b/compiler/globals.lisp
@@ -8,16 +8,6 @@
 	    *last-assembler-node-created* *other-code-vector*
 	    *other-next-location* *fixup-offset* *fixup-offset-map*
 	    *fixup-last-shortening* *result-fixups* *source-path-tree*
-	    *sc-numbers* *sb-list* *template-names* *sc-names* *sb-names*
-	    *meta-sc-numbers* *primitive-type-names* *move-costs* *save-scs*
-	    *save-costs* *restore-costs* *parsed-vops*
-	    *compiler-error-context* *word-length* target-byte-order
-	    *undefined-warnings* *meta-sb-names* *meta-sc-names*
+	    *compiler-error-context* *word-length* 
+	    *undefined-warnings*
 	    *code-segment* *elsewhere*))
-
-(defconstant native-byte-order target-byte-order
-  "The byte order we are running under.")
-
-(eval-when (compile)
-  (format t "foo!")
-  (setf (info variable constant-value 'native-byte-order) target-byte-order))