mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
18 lines
249 B
Plaintext
18 lines
249 B
Plaintext
;; Testing basic pil interop
|
|
|
|
(pil-eval "T")
|
|
;=>true
|
|
|
|
(pil-eval "NIL")
|
|
;=>nil
|
|
|
|
(pil-eval "(+ 1 1)")
|
|
;=>2
|
|
|
|
(pil-eval "(cons 1 2 3 NIL)")
|
|
;=>(1 2 3)
|
|
|
|
(pil-eval "(use (@A @O) (match '(@A and @O) '(Alpha and Omega)) (prinl @A) (prinl @O))")
|
|
Alpha
|
|
Omega
|