(defun list-replace-nth (list n new-value)
  "Return a new list equivalent to LIST, but with the NTH (zero-indexed) value of LIST repalced with NEW-VALUE."
  (let ((list (copy-list list)))
    (setf (nth n list) new-value)
    list))