Method: ((SETF STREAM-POSITION) T FLEXI-STREAM)

Source

(defmethod (setf stream-position) (pos (stream flexi-stream))
  (setf (stream-position (flexi-stream-stream stream)) pos))