From d408587a8434468f8d0a45bd22ac7a5970a24b14 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 5 Nov 1990 01:09:48 +0000
Subject: [PATCH] Replaced target-byte-order with (backend-byte-order
 *backend*).

---
 code/debug-info.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index 21b359585..d365b4b19 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -146,7 +146,8 @@
   (declare (type simple-bit-vector bits))
   (let ((len (length bits))
 	(start (fill-pointer vec)))
-    (cond ((eq target-byte-order native-byte-order)
+    (cond ((eq (backend-byte-order *backend*)
+	       (backend-byte-order *native-backend*))
 	   (let ((bytes (ash len -3)))
 	     (dotimes (i bytes)
 	       (vector-push-extend 0 vec))
@@ -166,7 +167,7 @@
 			       (setq shift ,initial  byte 0)))
 			   (unless (= shift ,initial)
 			     (vector-push-extend byte vec)))))
-	     (ecase target-byte-order
+	     (ecase (backend-byte-order *backend*)
 	       (:little-endian
 		(frob 0 incf (= shift 8)))
 	       (:big-endian
-- 
GitLab