[cmucl-cvs] CMUCL commit: src/compiler (dump.lisp)
Raymond Toy
rtoy at common-lisp.net
Sat Dec 4 23:21:13 UTC 2010
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))
More information about the cmucl-cvs
mailing list