Adding more tests to extra/lisp
parent
f82cb061f5
commit
d2d3e1e4f2
|
@ -84,4 +84,12 @@ IN: lisp.test
|
|||
<LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
|
||||
] unit-test
|
||||
|
||||
{ { 3 3 4 } } [
|
||||
<LISP (setq foo (lambda (x y &rest z)
|
||||
(cons (+ x y) z)))
|
||||
|
||||
(foo 1 2 3 4)
|
||||
LISP> cons>seq
|
||||
] unit-test
|
||||
|
||||
] with-interactive-vocabs
|
||||
|
|
Loading…
Reference in New Issue