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