From 3038960b20a98b428e30d0699dea932074ea8297 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 11 Jul 1992 02:12:51 +0000
Subject: [PATCH] Fixed DUMP-DATA-MAYBE-BYTE-SWAPPING to work.

---
 compiler/dump.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 430a8a716..2e158a112 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.40 1992/06/09 06:56:51 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.41 1992/07/11 02:12:51 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.40 1992/06/09 06:56:51 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.41 1992/07/11 02:12:51 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -1361,8 +1361,8 @@
 	   (dotimes (index elements)
 	     (multiple-value-bind (byte-index additional)
 				  (truncate index elements-per-byte)
-	       (let ((src-idx (+ byte-index
-				 (- elements-per-byte additional 1))))
+	       (let ((src-idx (- (* (1+ byte-index) elements-per-byte)
+				 (1+ additional))))
 		 (setf (aref result index)
 		       (if (>= src-idx len)
 			   0
-- 
GitLab