Date: Saturday, December 4, 2010 @ 18:21:13 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler Modified: dump.lisp Clean up implementation removing commented out stuff in DUMP-DATA-MAYBE-BYTE-SWAPPING. -----------+ dump.lisp | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) Index: src/compiler/dump.lisp diff -u src/compiler/dump.lisp:1.90 src/compiler/dump.lisp:1.91 --- src/compiler/dump.lisp:1.90 Sat Dec 4 12:32:34 2010 +++ src/compiler/dump.lisp Sat Dec 4 18:21:13 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.90 2010-12-04 17:32:34 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.91 2010-12-04 23:21:13 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1635,16 +1635,10 @@ bytes-per-element) (type unsigned-byte elements)) (if (stringp data-vector) - (progn - ;;(format t "reverse string data: ~S~%" data-vector) - #+(or) - (dotimes (index elements) - (let ((c (char-code (aref data-vector index)))) - (setf (aref result index) c))) - (dotimes (index elements) - (let ((c (char-code (aref data-vector index)))) - (setf (aref result index) (logior (ash (ldb (byte 8 0) c) 8) - (ldb (byte 8 8) c)))))) + (dotimes (index elements) + (let ((c (char-code (aref data-vector index)))) + (setf (aref result index) (logior (ash (ldb (byte 8 0) c) 8) + (ldb (byte 8 8) c))))) (dotimes (index elements) (let ((element (aref data-vector index)) (new-element 0))