From d0cac4d2402d0e0fea0b3d6e441fbee4a4de6ebd Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 6 Nov 1990 14:04:33 +0000
Subject: [PATCH] use (c:backend-byte-order *backend*) instead of
 vm:target-byte-order.

---
 code/alieneval.lisp | 10 +++++-----
 code/internet.lisp  |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 4c9cc3d2d..e9c89de16 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.5 1990/10/03 15:15:55 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.6 1990/11/06 14:04:03 wlott Exp $
 ;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
@@ -609,11 +609,11 @@
 	    value)))
      (t
       (macrolet ((low-byte ()
-			   (ecase vm:target-byte-order
+			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
 			     (:bit-endian '(1+ offset))))
 		 (high-byte ()
-			    (ecase vm:target-byte-order
+			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
 			      (:bit-endian 'offset))))
 	(let* ((high-bits (- 32 bit-offset))
@@ -657,11 +657,11 @@
       (setf (ldb (byte size r) (sap-ref-32 sap q)) value))
      (t
       (macrolet ((low-byte ()
-			   (ecase vm:target-byte-order
+			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
 			     (:bit-endian '(1+ offset))))
 		 (high-byte ()
-			    (ecase vm:target-byte-order
+			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
 			      (:bit-endian 'offset))))
 	(let* ((high-bits (- 32 r))
diff --git a/code/internet.lisp b/code/internet.lisp
index 498939c53..194e78d48 100644
--- a/code/internet.lisp
+++ b/code/internet.lisp
@@ -47,7 +47,7 @@
 
 
 (defmacro maybe-byte-swap (var bytes)
-  (ecase vm:target-byte-order
+  (ecase (c:backend-byte-order c:*backend*)
     (:big-endian
      var)
     (:little-endian
-- 
GitLab