;;Variable used in test-variables
(defparameter *global* 10)

;;Chapter 2, Test 8, Pg 21
(deftest test-variables ()
  (let ((x 8) (y 2))
  (setf x (+ x y));useful way to switch two numerical values w/o a temp variable
  (setf y (- x y))
  (setf x (- x y))
  (check
    (equal x 2)
    (equal y 8)
    (equal *global* 10)
    (equal (+ x y) 10)
    (boundp `*global*)
    (not (boundp `*notglobal*)))))