Assume the following forms have been typed into the interpreter and evaluated:

(setq a 'x)
(setq b 'y)
(set b 'a)
(setf c 'z)
(setq x ((lambda (n) (cons n 'x)) 'b))
(defun a (y) (cons y '(y)))
(defmacro b (x) `(a ,x))
(setq z 'd)
(setq d 'e)
(setq e y)
(setf (get 'b 'val) b)


What will the following forms evaluate to?

1.  (cons y 'c)
2.  (cons a  b)
3.  (car x)
4.  (cdr x)
5.  (cdr (a b))
6.  (caadr '(a (a (b c))))
7.  (list a b)
8.  (list x y)
9.  (append '(a b) (a b))
10. (append x x)
11. (append (list x) (list x))
12. (cond ((equal 'x a) 'x) (t 'a)) 
13. (cond ((eq 'x a) 'x) (t 'a)) 
14. (cond ((equal '(b . x) x) x) (t 'a)) 
15. (cond ((eq '(b . x) x) x) (t 'a)) 
16. (or (listp x) (listp b))
17. (and (atom a) (atom b))
18. (not (eq '() nil))
19. (member 'x x)
20. (member '(a b) '(x (a b) c))
21. (member 'a '(b c a d))
22. (get b 'val)
23. (get 'b 'val)
24. (cons (get b 'val) '(a))
25. (apply 'car '(x))
26. (apply 'car '((x)))
27. (funcall 'car '(x))
28. (funcall 'car '((x)))
29. (eval 'z)
30. (eval (eval 'z))
31. (eval (eval z))
32. (eval (eval (eval z)))
33. (eval (eval (eval (eval z))))
34. (eval '(a x))
35. (eval (eval (eval d)))
36. (b x)
37. (mapcar 'car '(a b c))
38. (mapcar 'car '((a) (b) (c)))
39. (maplist 'car '(a b c))
40. (maplist 'cons '(a b) '(c d))
41. (maplist 'cons '(a) '(c))
42. (apply 'append '((a b) (c d)))
43. (mapl 'cons '(a) '(c))
44. (mapcar #'(lambda (x) (eq x 'a)) '(a b c)))
45. `(a ,b)
46. `(a ',b)
47. `(a ,@x)
48. (multiple-value-list (values a b))
49. (multiple-value-list (round 8.4))
50. (let ((x a) (y b)) (multiple-value-setq (x y) (round 8.4)) (cons x (list y))))
51. (multiple-value-bind (x y) (round 8.4) (+ x y))
52. (multiple-value-call #'cons (round 8.4))
53. (values)
54. (values x y z)