From ba21909061ed6a0e50e670c5e36fe9bfff55d49d Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 17 May 1991 16:23:17 +0000
Subject: [PATCH] Added CMU code to determine implementation endianness. 
 Somewhat surprisingly, the PMAX seems to pretty much work when it claims to
 the server that it is big-endian.  This is probably because we never use word
 accessors.

---
 clx/depdefs.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/clx/depdefs.lisp b/clx/depdefs.lisp
index 6a0af7722..e90fb08bf 100644
--- a/clx/depdefs.lisp
+++ b/clx/depdefs.lisp
@@ -176,6 +176,13 @@
     (:big)
     (:little (pushnew :clx-little-endian *features*))))
 
+#+cmu
+(eval-when (compile eval load)
+  (ecase #.(c:backend-byte-order c:*backend*)
+    (:big-endian)
+    (:little-endian (pushnew :clx-little-endian *features*))))
+
+
 ;;; Steele's Common-Lisp states:  "It is an error if the array specified
 ;;; as the :displaced-to argument  does not have the same :element-type
 ;;; as the array being created" If this is the case on your lisp, then
-- 
GitLab