From 0dae10f57b679aa893db6bba9b8c1fe1604e4aeb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 18 Nov 1990 17:09:54 +0000
Subject: [PATCH] typo

---
 code/alieneval.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index f10a0c429..1d5c4860a 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.8 1990/11/13 23:36:34 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.9 1990/11/18 17:09:54 wlott Exp $
 ;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
@@ -615,11 +615,11 @@
       (macrolet ((low-byte ()
 			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
-			     (:bit-endian '(1+ offset))))
+			     (:big-endian '(1+ offset))))
 		 (high-byte ()
 			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
-			      (:bit-endian 'offset))))
+			      (:big-endian 'offset))))
 	(let* ((high-bits (- 32 bit-offset))
 	       (low-bits (- size high-bits))
 	       (value (logior (ash (ldb (byte high-bits 0)
@@ -663,11 +663,11 @@
       (macrolet ((low-byte ()
 			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
-			     (:bit-endian '(1+ offset))))
+			     (:big-endian '(1+ offset))))
 		 (high-byte ()
 			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
-			      (:bit-endian 'offset))))
+			      (:big-endian 'offset))))
 	(let* ((high-bits (- 32 r))
 	       (low-bits (- size high-bits)))
 	  (setf (ldb (byte high-bits 0)
-- 
GitLab