Function: READ-SEQUENCE*

Documentation

Like READ-SEQUENCE except the sequence is returned as well. The second value returned is READ-SEQUENCE's primary value, the primary value returned by READ-SEQUENCE* is the medified sequence.

Source

(defun read-sequence* (sequence stream &key (start 0) end)
  "Like READ-SEQUENCE except the sequence is returned as well.

The second value returned is READ-SEQUENCE's primary value, the
primary value returned by READ-SEQUENCE* is the medified
sequence."
  (let ((pos (read-sequence sequence stream :start start :end end)))
    (values sequence pos)))