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