factor/extra/lisp/lisp-tests.factor

4 lines
188 B
Factor
Raw Normal View History

2008-04-23 09:01:54 -04:00
[ [ T{ lisp-symbol f "foo" } [ 2 T{ lisp-symbol f "bar" } ] [ 3 4 T{ lisp-symbol f "baz" } ] if ] ]
[ "(if foo (bar 2) (baz 3 4))" lisp-expr parse-result-ast convert-if ] unit-test