diff --git a/compiler/dump.lisp b/compiler/dump.lisp index 124d6dc886b73ba587be81e4c644e5d730a8ec4c..c399a242ccadb89c24db8bcedaccab56bb8ec165 100644 --- a/compiler/dump.lisp +++ b/compiler/dump.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.90 2010/12/04 17:32:34 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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))