6 lines
104 B
Common Lisp
6 lines
104 B
Common Lisp
(setf x (make-array '(3)
|
|
:initial-contents '(0 1 2))
|
|
)
|
|
(write x)
|
|
(setf (aref x 1) 23)
|
|
(write x) |