(setf x (make-array '(3) 
   :initial-contents '(0 1 2))
)
(write x)
(setf (aref x 1) 23)
(write x)