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