;Chapter 6, Bryan Test 1, Page 102-103

(defun __my-add (args); a helper function to my-add
  (if (null args)
    0
    (+ (car args) (__my-add (cdr args)))));a variation on recursive sum

(defun my-add (&rest args);passes newly generated list to __my-add
  (__my-add args))

(defun c-compare (x &optional (fn #'>) (y 0)); impliments a c type comparison function
  (funcall fn x y))

(deftest test-parameters ()
  (check
    (equal (my-add 1 2 3 4 5) 15) ;tests a function that takes an arbitrary number of parameters
    (c-compare 2); 2 > 0
    (c-compare 2 #'< 4); 2 < 4
    (c-compare 0 #'=))); 0 = 0