Commit 25bc4ad7 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

fix thinko in call to READ-INTO-VECTOR*

parent 372b33b4

streams.lisp

+1 −1
Original line number Diff line number Diff line
@@ -86,6 +86,6 @@ 
					      ,n-bytes #',byte-fun))

		       (vector

			(let ((end (or end (length vector))))

			  (read-into-vector* stream seq start (- end start)

			  (read-into-vector* stream seq start end

					     ,n-bytes #',byte-fun))))) into forms

        finally (return `(progn ,@forms)))