;;Function to help test-truth
(defun greater (arg1 arg2)
  (if (> arg1 arg2) arg1 arg2));Wrote by Jim

;;Chapter 2, Test 10, Pg 27
(deftest test-types ()
  (check
    (typep 1 `integer)
    (typep 1 `atom)
    (listp `(islist))
    (typep `nolist t)
    (numberp 21)
    (equal (stringp "22") t)
    (stringp (format nil "%A" `isstring))
    (realp 1)
    ;(= 7 (if (listp 1) (+ 1 12) (+ 3 4)));added by Jim
))