Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
eb96f3ef
Commit
eb96f3ef
authored
Apr 20, 2009
by
rtoy
Browse files
Merge change from unicode-utf16-extfmt-branch that fixes the end index
issue with WRITE-VECTOR.
parent
2bc81ca4
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/stream-vector-io.lisp
View file @
eb96f3ef
...
...
@@ -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/code/stream-vector-io.lisp,v 1.
4
2009/04/
1
0
17:21:35
rtoy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream-vector-io.lisp,v 1.
5
2009/04/
2
0
20:53:47
rtoy Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -159,12 +159,14 @@
(
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
)
(
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
))
(
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
start-idx
:end
end-idx
)
(
endian-swap-vector
vector
start-idx
end-idx
swap-mask
)))
vector
))
(
*
next-index
octets-per-element
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment