From 09aa63abf986da88ff66064f9534be2d1bcbcdb7 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 21 Nov 1990 08:44:50 +0000
Subject: [PATCH] Changed vm:target-byte-order to (c:backend-byte-order
 c:*backend*).

---
 code/bit-bash.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 44c494ff6..f0e3840ad 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -53,14 +53,14 @@
 (defmacro end-bits (count)
   "Returns the byte spec for COUNT bits at the end of a word, i.e. the bits
   at the largest address."
-  (ecase vm:target-byte-order
+  (ecase (c:backend-byte-order c:*backend*)
     (:little-endian `(byte ,count (- unit-bits ,count)))
     (:big-endian `(byte ,count 0))))
 
 (defmacro start-bits (count)
   "Returns the byte spec for COUNT bits at the start of a word, i.e. the bits
   at the smallest address."
-  (ecase vm:target-byte-order
+  (ecase (c:backend-byte-order c:*backend*)
     (:little-endian `(byte ,count 0))
     (:big-endian `(byte ,count (- unit-bits ,count)))))
 
@@ -69,7 +69,7 @@
   corresponds to the start of the word (lowest address) and WHERE of
   unit-bits corresponds to the end of the word (highest address).  In other
   words, act like :little-endian"
-  (ecase vm:target-byte-order
+  (ecase (c:backend-byte-order c:*backend*)
     (:little-endian `(byte ,count ,where))
     (:big-endian `(byte ,count (- unit-bits ,where ,count)))))
 
-- 
GitLab