;Deftests for chapter 3
(deftest justinChap3 ()
  (check ;open check
    (equal `(4 9 16) (mapcar #'square `(2 3 4)));check for 3.7
  ); close check
) ;close deftest

(defun square (x)
  (* x x)
)

(defun addD (x)
  (cons 'D x)
)

;; (defun mapcartest ()
;;   (mapcar #'square `(2 3 4))
;; )
;; 
;; (defun maplisttest()
;;   (maplist #'addD `(A B C D))
;; );;