;;Chapter 2, Test 4, Pg 13
(deftest test-truth ()
  (check
    (equal t t)
    (equal (not nil) t)
    (equal (null nil) t)
    (equal (not t) nil)
    (or t nil)
    (or nil t)
    (or (and t t) (or nil nil))
    (eql t (listp `(my 3 "Sons")));added by Jim
    (= 9 (greater 3 9));added by Jim

    (if t
      t
      nil)

    (if nil
      nil
      t)))