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