mirror of
https://gitlab.com/jusax23/raspberry-pi-pico-machine-code-emulator.git
synced 2024-11-22 14:46:37 +01:00
12 lines
190 B
Common Lisp
12 lines
190 B
Common Lisp
|
(defvar x:*uint16 (list 3 2 1))
|
||
|
|
|
||
|
|
(print (list-nth x 0))
|
||
|
|
(print (list-nth x 1))
|
||
|
|
(print (list-nth x 2))
|
||
|
|
|
||
|
|
(list-set x 1 5)
|
||
|
|
|
||
|
|
(print (list-nth x 0))
|
||
|
|
(print (list-nth x 1))
|
||
|
|
(print (list-nth x 2))
|