;;Functions to help test-listopps
(defun 4th (lst); gets the car of the 4th cdr. Our own implimentation of cadddr
  (car (cdr (cdr (cdr lst)))));Wrote by Jim

(defun aFirst (ls);determines if a is the first value
  (if (eql `a (car ls))1 0));Wrote by Justin

;;Chapter 2, Test 3, Pg 12-13
(deftest test-listopps ()
  (check
    (equal (cons `+ (cons 2 (cons 3 nil))) (list `+ 2 3)); creating a list as a series of cons cells
    (equal (car `(a b c)) `a);is a the first element?
    (equal (cdr `(a b c)) `(b c));returns all but the first element
    (equal (car (cdr `(a b c))) `b);equivelent to second
    (equal (third `(a b c)) `c);gets the third element
    (= 4 (4TH `(1 2 3 4)));added by Jim. Returns the 4th element
    (= 1 (aFirst `(a b c)));added by Justin; says a is first
    (= 0 (aFirst `(b c)));added by Justin; says a is not first
))