mirror of
https://github.com/teo3300/rust-mal.git
synced 2026-01-12 01:05:32 +01:00
8 lines
140 B
Plaintext
8 lines
140 B
Plaintext
;; Test car
|
|
(assert-eq (car '(1 2 3)) 1)
|
|
(assert-eq (car '()) nil)
|
|
|
|
;; Test cdr
|
|
(assert-eq (cdr '(1 2 3)) '(2 3))
|
|
(assert-eq (cdr '()) '())
|