Merge change from unicode-utf16-extfmt-branch that fixes the end index

;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream-vector-io.lisp,v 1.4 2009/04/10 17:21:35 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream-vector-io.lisp,v 1.5 2009/04/20 20:53:47 rtoy Exp $")

;;;

;;; **********************************************************************

;;;

	   (unless (typep vector '(or string simple-numeric-vector))

	     (error "Wrong vector type ~a for write-vector on stream ~a." (type-of vector)

		    stream))

	   (endian-swap-vector vector start end swap-mask)

	   (let ((start-idx (floor start octets-per-element))

		 (end-idx (floor end octets-per-element)))

	     (endian-swap-vector vector start-idx end-idx swap-mask)

	     (unwind-protect

		  (write-sequence vector stream

				:start (floor start octets-per-element)

				:end (floor end octets-per-element))

	     (endian-swap-vector vector start end swap-mask))

				  :start start-idx

				  :end end-idx)

	       (endian-swap-vector vector start-idx end-idx swap-mask)))

	   vector))

    (* next-index octets-per-element)))