repo.or.cz
/
berndj-bootstrap.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Implement (list? ARG).
[berndj-bootstrap.git]
/
lisp
/
test-input
blob
8aa6e02da694fa815548463cfb52b6029f4c2205
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 ())))