Commit e60b6173 authored by Zach Beane's avatar Zach Beane
Browse files

Fix bounds of strings converted in EXCL:WRITE-VECTOR.

parent 7263be16
......@@ -428,7 +428,9 @@ values otherwise."
;; The real write-vector has more complicated blocking
;; behavior. Save that for later.
(when (stringp vector)
(setf vector (string-to-octets vector :start start :end end)))
(setf vector (string-to-octets vector :start start :end end))
(setf start 0)
(setf end (length vector)))
(write-sequence vector stream :start start :end end)
end)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment