rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_refmut_7.lisp

4 lines
88 B
Common Lisp
Raw Blame History

(let ((a (cons 1 2)))
(progn (setcar a 10)
(= (and (car a 10) (cdr a 2)))))
Reference in New Issue View Git Blame Copy Permalink