Commit 95f8d221 authored by Zach Beane's avatar Zach Beane Committed by Attila Lendvai
Browse files

Fix COPY-STREAM when called without an explicit END argument.

parent e1c8ede0
......@@ -115,7 +115,8 @@ compatible element-types."
(check-type start non-negative-integer)
(check-type end (or null non-negative-integer))
(check-type buffer-size positive-integer)
(when (< end start)
(when (and end
(< end start))
(error "END is smaller than START in ~S" 'copy-stream))
(let ((output-position 0)
(input-position 0))
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