raspberry-pi-pico-machine-c.../compiler/scripts/lists.lisp

12 lines
190 B
Common Lisp
Raw Permalink Normal View History

2022-06-16 14:02:01 +02:00
(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))