mirror of https://github.com/rusefi/bldc.git
10 lines
153 B
Common Lisp
10 lines
153 B
Common Lisp
|
|
||
|
|
(define a (list 1 2 3 4))
|
||
|
|
(define b (list a 'x 'y 'z))
|
||
|
|
|
||
|
|
(gc)
|
||
|
|
|
||
|
|
(check (and
|
||
|
|
(eq a (list 1 2 3 4))
|
||
|
|
(eq b (list (list 1 2 3 4) 'x 'y 'z))))
|