Method: (DESERIALIZE-BYTE SERIALIZATION-BUFFER)

Source

(defmethod deserialize-byte ((stream serialization-buffer)
                             &optional (eof-error-p t))
  (with-slots (contents scan-pointer)
      stream
    (if (< scan-pointer (length contents))
        (let ((result (aref contents scan-pointer)))
          (incf scan-pointer)
          result)
      (and eof-error-p
           (error "Unexpected end of serialization buffer at ~D."
                  scan-pointer)))))