How to modify list inside a function

Question

(defun read-list (item count)
  ...)

(defmethod foo ((obj objtype-2) data-list)
  (setf (slot-1 obj) (read-list data-list 1))
  obj)

(defmethod foo ((obj objtype-1) da