mirror of https://github.com/rusefi/bldc.git
8 lines
143 B
Common Lisp
8 lines
143 B
Common Lisp
|
(define alist (list '(1 . a) '(2 . b) '(3 . c) '(4 . d)))
|
||
|
|
|
||
|
|
(setassoc 'alist 3 'e)
|
||
|
|
|
||
|
|
(and (eq (assoc alist 3) 'c)
|
||
|
|
(eq (assoc alist 1) 'a))
|
||
|
|
|