From 157c36a1ed59002dc4c65e3af98273f945a0d966 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 3 Nov 1990 02:53:31 +0000
Subject: [PATCH] Removed some globals that are no longer used.  Removed the
 target-byte-order/native-byte-order hacks.

---
 compiler/globals.lisp | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/compiler/globals.lisp b/compiler/globals.lisp
index 71e8862be..cfb6a9bc4 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))
-- 
GitLab