Commit c61308fb authored by Nathan Froyd's avatar Nathan Froyd
Browse files

fix one last typo in READ-*-INTO-SEQUENCE

parent 25bc4ad7

streams.lisp

+1 −1
Original line number Diff line number Diff line
@@ -85,7 +85,7 @@ 
		       (list (read-into-list* stream seq start end

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

		       (vector

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

			(let ((end (or end (length seq))))

			  (read-into-vector* stream seq start end

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

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