loading d:/classes/cs342/lib/displayln.scm ...
loading d:/classes/cs342/lib/test-homework.scm ...
> (quote foobar)
foobar
> (define foobar 7)
#<unspecified>
> 'foobar
foobar
> foobar
7
> (sin foobar)
0.656986598718789
> '(sin foobar)
(sin foobar)
> '(1 2 () 3 (4 5))
(1 2 () 3 (4 5))
> (list 1 2 (list) 3 (list 4 5))
(1 2 () 3 (4 5))
> '(foobar)
(foobar)
> (list foobar)
(7)
> (+ 1 foobar)
8
> '(+ 1 foobar)
(+ 1 foobar)
> 1
1
> '1
1
> '#t
#t
> '(not #t)
(not #t)
> '))

WARNING: unexpected ")"
#<undefined>
> '(+ 2 3) 7
(+ 2 3)
> 7
> #\)
#\)
> '#\)
#\)
> 7
7
> foobar
7
> 'foobar
foobar
> (eq? 'a 'a)
#t
> (eq? 'a 'b)
#f
> (eq? 3 3)
#t
> (eq? 55555555555555555555
       55555555555555555555)
#f
> (= 4 4.0)
#t
> (= 5555555555555555555555
     5555555555555555555555)
#t
> (eq? 4 4.0)
#f
> (eq? (list 1 2) (list 1 2))
#f
> (let ((mylist (list 1 2)))
     (eq? mylist mylist))
#t
> (let ((mylist (list 1 2)))
     (eq? mylist (cdr (cons 1 mylist))))
#t
> (eqv? 4 4.0)
#f
> (eqv? #t #t)
#t
> (eqv? (list 1 2 ) (list 1 2))
#f
> (equal? (list 1 2) (list 1 2))
#t
> (eqv? (make-vector  1 2) (make-vector 1 2))
#f
> (equal? (make-vector 1 2) (make-vector 1 2))
#t
> (eqv? 555555555555555
        555555555555555)
#t
> (eqv? 4 4.0)
#f
> (tan '(sin foobar))

ERROR: real-part: Wrong type in arg1 (see errobj)
> errobj

(sin foobar)
> (exit)