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