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))