;; -*- lexical-binding: t; -*-
(defun modify-literal-vector ()
  (let ((a [1 2 3]))
    (aset a 0 5)
    a))

(defun modify-literal-cons ()
  (let ((a '(1 2 3 4)))
    (setcar a nil)))

(defun modify-literal-string ()
  (let ((a "foo-bar"))
    (aset a 0 ?c)))