;;Chapter 2, Test 5, Pg 13, 27
(deftest test-predicates ()
  (check
    (listp `(a))
    (listp `(a b))
    (not (listp 21))
    (numberp 12)
    (stringp "test")
    (stringp (format nil "~A" `test))));format returns a string