(deftest ric-nthcdr()
(let ((testlist '(a b c)))
  (check
    (equal (nthcdr 0 testlist) testlist)
    (equal (nthcdr 1 testlist) (cdr testlist))
    (not (nthcdr 3 testlist)))))