;Deftests for chapter 7
(deftest justinChap7 ()
  (check ;open check
    (= (+ (* 5 (floor (/ 184 5))) 1) (TestRing 1 184))
  ); close check
) ;close deftest

(defun TestRing (start stop)
  (let ((ring (new-buf 5)))
    (do ((i start (+ i 1)))
      ((> i stop) (buf-pop ring))
      (buf-insert i ring)
    )
  )
) ; close TestRing Body