(testreader '(#\( #\)))
()

(testreader '(#\( a #\)))
(a)

(testreader '(#\' a))
'a

(testreader '(#\( set! x #\' #\( hi mom #\) #\) ) )
(set! x '(hi mom))

(testreader '(#\( #\( a b #\) #\( c d #\) #\) ) )
((a b) (c d))

(testreader '(#\( eq? #\' #\( a #\)
                      #\' #\( a #\) #\) ) )
(eq? '(a) '(a))

Contents    Page-10    Prev    Next    Index