[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