Implement (list? ARG).
[berndj-bootstrap.git] / lisp / test-input
blob8aa6e02da694fa815548463cfb52b6029f4c2205
1 (+ 4 5)
2 (cons 17 42)
3 (car (cons 17 42))
4 #t
5 cons
6 lambda
7 (lambda () 42)
8 ((lambda () 42))
9 ((lambda (a) (+ 2 a)) 17)
10 (quote ())
11 (quote (a b c))
12 (if #t 17 42)
13 (if #f 17 42)
14 (eq? 12 12)
15 (eq? 12 24)
16 (eq? (cons 2 3) (cons 2 3))
17 (eq? (quote foo) (quote foo))
18 (eq? (quote foo) (quote bar))
19 (eq? "foo" "foo")
20 (list? 17)
21 (list? (cons 17 42))
22 (list? (cons 17 (quote ())))