;Deftests for chapter 5
(deftest justinChap5 ()
  (check ;open check
    (= 120 (chap5Fact 5)) ;deftest for itteration 
    (equal '(3 3 2001) (multiple-value-bind (x y z) (num->date 427) (list x y z))) ;defttest for fig 5.2
  ); close check
) ;close deftest

(defun chap5Fact (x)
  (let ((y 1)) (do ((z 1 (+ z 1)))
                ((> z x) y )
                (setf y (* z y)))y))