(defparameter *a* '(1 2 3))
  (setf (car *a*) 3)

And this is undefined behavior because it mutates literal constant. I stopped reading further. The CL column is so bad.